怎样用Excel把10个数字中的4个数字进行组合,并列出来

怎样用Excel把10个数字中的4个数字进行组合,并列出来

在SHEET1表A1单元格录入10位数字字符,例如1234560000
将排列组合结果显示在SHEET1表B列中
Public Sub aaa()
Dim Mstr1 As String, Mstr2 As String, MStr3 As String
n = 1
For i = 1 To 10
Mstr1 = Mid(Sheet1.Range("A1"), i, 1)
For j = 1 To 10
If j <> i Then
Mstr2 = Mstr1 & Mid(Sheet1.Range("A1"), j, 1)
For k = 1 To 10
If k <> j And k <> i Then
MStr3 = Mstr2 & Mid(Sheet1.Range("A1"), k, 1)
For l = 1 To 10
If l <> k And l <> j And l <> i Then
Sheet1.Range("B" & n) = MStr3 & Mid(Sheet1.Range("A1"), l, 1)
n = n + 1
End If
Next
End If
Next
End If
Next
Next
Sheet1.Range("B1:B" & Sheet1.Range("B30000").End(xlUp).Row).RemoveDuplicates Columns:=1, Header:=xlNo
End Sub

不过通过编程结果显示，是1045种，而不是210种哦

请举个例子看看。