用excel做字母数字的排列组合

可以使用宏来解决生成。

Sub arrange()
Dim my_String As String
my_String = "12 23 b2 33 aa 44 qq"
Dim my_Arr(0 To 6)
For i = 0 To 6
my_Arr(i) = Split(my_String, " ")(i)
Next
Dim my_Arrange As String
my_Arrange = ""
Dim my_Row As Single
my_Row = 1
Dim N1, N2, N3, N4, N5, N6, N7 As Single
For N1 = 0 To 6
For N2 = 0 To 6
For N3 = 0 To 6
For N4 = 0 To 6
For N5 = 0 To 6
For N6 = 0 To 6
For N7 = 0 To 6
Cells(my_Row, 1) = my_Arr(N1) & my_Arr(N2) & my_Arr(N3) & my_Arr(N4) & my_Arr(N5) & my_Arr(N6) & my_Arr(N7)
'my_Arrange = my_Arrange & Chr(13) & Chr(10) & my_Arr(N1) & my_Arr(N2) & my_Arr(N3) & my_Arr(N4) & my_Arr(N5)

my_Row = my_Row + 1

Next
Next
Next
Next
Next
Next
Next

'MsgBox my_Arrange
End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/vfxvjfe7evxjjyxe7f2.html