编程处理
ALT+F11,粘贴以下代码,F5运行.
Sub xxx()
i = 1
For a = 1 To 4
For b = 1 To 3
For c = 1 To 2
For d = 1 To 3
Cells(i, 6) = Cells(a, 1) & Cells(b, 2) & Cells(c, 3) & Cells(d, 4)
i = i + 1
Next d, c, b, a
End Su
编程处理
ALT+F11,粘贴以下代码,F5运行.
Sub xxx()
i = 1
For a = 1 To 4
For b = 1 To 3
For c = 1 To 2
For d = 1 To 3
Cells(i, 6) = Cells(a, 1) & Cells(b, 2) & Cells(c, 3) & Cells(d, 4)
i = i + 1
Next d, c, b, a
End Su