循环文本和重复动作

Question

说我有两列。 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

Answer 1

试试这个

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