Question

请帮助，怎么算出A、B、C列的排列组合，ABC三列合计为10成

Answer 1

D1 公式
=a1&b1&c1
下拉复制公式

追问

谢谢，这个我知道，我问的是怎么算出A、B、C列的排列组合，比如9、1、0就有4种排列方式

追答

你想算什么。。。
对D列计数？求和？求平均数？
还是什么。没明白你的意思

追问

谢谢您，D列可以不去管它，我想求的A列、B列、C列的值，比如10、0、0有三种排列组合方式，9、1、0有四种排列组合方式，8、1、1有三种，8、2、0有四种，按这种规律往下排，能排出多少？

追答

你没列举完吧？910 应该是910 ，901，109，190，019，091，共6种吧？要这样的组合？

追问

是啊是啊，我没举完，我就是手工填的，这样总有填漏的

追答

给你一个代码，ALT+F11——F7——粘贴如下代码——调整格式（该换行的要换行）——F5运行代码。
但是没按你的要求。我是填在一行的。
Sub mysub()
Dim i As Long, j As Long
Columns("d:o").Cells.Clear
Columns("D:o").NumberFormatLocal = "@"
For i = 1 To [a65536].End(xlUp).Row
j = 4
Cells(i, j) = CStr(Cells(i, 1).Value) & CStr(Cells(i, 2).Value) & CStr(Cells(i, 3).Value)
j = j + 1
If Range(Cells(i, 4), Cells(i, 12)).Find(CStr(Cells(i, 1).Value) & CStr(Cells(i, 3).Value) & CStr(Cells(i, 2).Value)) Is Nothing Then
Cells(i, j) = CStr(Cells(i, 1).Value) & CStr(Cells(i, 3).Value) & CStr(Cells(i, 2).Value)
j = j + 1
End If
If Range(Cells(i, 4), Cells(i, 12)).Find(CStr(Cells(i, 2).Value) & CStr(Cells(i, 1).Value) & CStr(Cells(i, 3).Value)) Is Nothing Then
Cells(i, j) = CStr(Cells(i, 2).Value) & CStr(Cells(i, 1).Value) & CStr(Cells(i, 3).Value)
j = j + 1
End If
If Range(Cells(i, 4), Cells(i, 12)).Find(CStr(Cells(i, 2).Value) & CStr(Cells(i, 3).Value) & CStr(Cells(i, 1).Value)) Is Nothing Then
Cells(i, j) = CStr(Cells(i, 2).Value) & CStr(Cells(i, 3).Value) & CStr(Cells(i, 1).Value)
j = j + 1
End If
If Range(Cells(i, 4), Cells(i, 12)).Find(CStr(Cells(i, 3).Value) & CStr(Cells(i, 1).Value) & CStr(Cells(i, 2).Value)) Is Nothing Then
Cells(i, j) = CStr(Cells(i, 3).Value) & CStr(Cells(i, 1).Value) & CStr(Cells(i, 2).Value)
j = j + 1
End If
If Range(Cells(i, 4), Cells(i, 12)).Find(CStr(Cells(i, 3).Value) & CStr(Cells(i, 2).Value) & CStr(Cells(i, 1).Value)) Is Nothing Then
Cells(i, j) = CStr(Cells(i, 3).Value) & CStr(Cells(i, 2).Value) & CStr(Cells(i, 1).Value)
j = j + 1
End If
Next
End Sub