excel - 如何将制表符值复制到vba中的单元格

Question

亲爱的 StackOverFlow 成员，

我尝试将选项卡内容复制到一系列单元格。例如，如果我的选项卡中有 5 个值，我想将每个值复制到 5 个不同的单元格。所以选项卡的 1 个值到 1 个单元格。

我试图像下面的代码一样遍历单元格范围并遍历选项卡。但我在每个单元格中只得到 5 个。

Sub test()

Dim i As Integer
Dim j As Integer
Dim tabtest(4) As Integer
tabtest(0) = 1
tabtest(1) = 2
tabtest(2) = 3
tabtest(3) = 4
tabtest(4) = 5

For i = 5 To 10
For j = 0 To 4
Sheets("Câbles").Range("A" & i).Value = tabtest(j)
Next j
Next i

End Sub

我想从中吸取教训，所以如果可能的话，请解释一下我在这里做错了什么，或者我的方法是否缺乏洞察力。

Answer 1

您不需要第二个循环。此外，您在选项卡中有 5 个值，因此第一个循环必须是 5至9而不是 5至10 .而不是 10或 9您也可以使用 Ubound(tabtest)达到你想要的。

这是你正在尝试的吗？

j = 0
For i = 5 To 9
    Sheets("Câbles").Range("A" & i).Value = tabtest(j)
    j = j + 1
Next i

使用 Ubound

Sub test()
    Dim i As Long, j As Long
    Dim startRow As Long

    Dim tabtest(4) As Integer
    tabtest(0) = 1
    tabtest(1) = 2
    tabtest(2) = 3
    tabtest(3) = 4
    tabtest(4) = 5

    startRow = 5

    For i = startRow To (startRow + UBound(tabtest))
        Sheets("Câbles").Range("A" & i).Value = tabtest(j)
        j = j + 1
    Next i
End Sub