尝试使用 VB 自动填充大于 300,000 行的非常大的电子表格

Question

在 A 列中，我正在尝试为接下来的 61 行复制单元格值。以下是我的尝试，但它似乎不起作用。我想我不确定如何复制单元格值。感谢您的任何建议，因为电子表格有超过 300,000 行，因此我想自动执行此操作。

Sub AnotherAttempt()
'
' AnotherAttempt Macro
'
' Keyboard Shortcut: Ctrl+r
'
    iLoop = 2000
    For i = 1 To iLoop
            j = i - 1
            Selection.AutoFill Destination:=Range("A4652 + 62*j:A4652 + 62*i - 1")
    Next i

End Sub

Answer 1

我不清楚这里的想法是什么，但肯定有一件事是错误的......你使用 j 和 i 值的方式。应该是这样的：

Selection.AutoFill Destination:=Range("A" & 4652 + 62*j & ":A" & 4652 + 62*i - 1)

数学应该在字符串之外完成。