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

Posted 2023-02-24

【中文标题】尝试使用 VB 自动填充大于 300,000 行的非常大的电子表格

【英文标题】：Trying to auto fill with VB for a really large spreadsheet >300,000 rows

【发布时间】：2011-06-24 21:11:21

【问题描述】：

在 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

【参考方案1】：

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

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

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