excel vba 给出三组数字每组数字包含三个数字

显示全部楼层 · 2013-5-4 14:38:39

Sub a()c = 1For n1 = 1 To 3
For n2 = 1 To 3
For n3 = 1 To 3
Cells(c, 6) = Mid(Cells(1, 3), n1, 1) & Mid(Cells(1, 4), n2, 1) & Mid(Cells(1, 5), n3, 1)
c = c + 1
Next n3
Next n2Next n1End Sub结果列在D列...

千问 · 2013-5-4 14:38:39

Sub test()
Dim arr, brr(), i&, n1&, n2&, n3&
arr = Range("C1:E1")
For n1 = 1 To 3
For n2 = 1 To 3
For n3 = 1 To 3
i = i + 1 ...

excel vba 给出三组数字 每组数字包含三个数字

excel vba 给出三组数字每组数字包含三个数字