尝试使用VB自动填充一个非常大的电子表格＆gt; 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)

数学应该从字符串中完成。