说我有两列。 A 用字母 B 填充数字:
A B
1 a 1
2 b 2
3 c 3
4 4
我希望得到的结果 D 和 E :
A B D E
1 a 1 a 1
2 b 2 a 2
3 c 3 a 3
4 4 a 4
5 b 1
6 b 2
7 b 3
8 b 4
答案 0 :(得分:0)
试试这个
Sub Test()
Dim a, b, i, j
i = 1: j = 1
For Each a In Range("A1:A3")
For Each b In Range("B1:B4")
Range("D" & i).Value = a
Range("E" & j).Value = b
j = j + 1
i = i + 1
Next b
Next a
End Sub