Vba 循环使用文本和重复动作

假设我有两列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

试试这个

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

---

这会起作用，但a或b中的值可能会改变，数组也会改变。谢谢在我的代码中，a和b是变量，而不是真正的“a”和“b”。。。你可以在其他字母表中使用这个代码：）我想继续写“c”，但实际上，对于a、b或c，我有大约100个可能的条目，我只是简单地举了个例子，这与我有大约200个条目的数字是一样的。我的数据库是巨大的这段代码将继续为c以及。。。但是如果你想把它扩展到200，那么也许你需要改变范围。。。如果在A列中有100个条目，则将

Range（“A1:A3”）

更改为

Range（“A1:A100”）

。。。行得通