arrays - 使用 VBA 将数组粘贴到 Excel 中的空白表时遇到问题

Question

我已经编写了代码来在数组中生成很多行，并从以前的版本中进行了一些编辑以尝试加快速度，现在我遇到了将代码粘贴到空白页中的问题。以下是适用的代码：

Dim Results

[Block of code declaring variables to run For Loops]

ReDim Results(1 To 50000, 1 To 9)

'Clear Sheet

Sheets("Generated").Activate
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents

Dim Rw As Single

[Block of For Loops to generate rows in Array]

If Rw = 50000 Then GoTo PasteResults
    Rw = Rw + 1
    'Create Vector Array, Places Player into appropriate column
    Results(Rw, 1) = Range("C2"): Results(Rw, 2) = Range("C3"): Results(Rw, 3) = Range("C4"):
    Results(Rw, 4) = Range("C5"): Results(Rw, 5) = Range("C6"): Results(Rw, 6) = Range("C7"):
    Results(Rw, 7) = Range("C8"): Results(Rw, 8) = Range("C9"): Results(Rw, 9) = Range("C10")
    [Block finishing For Loops]
    PasteResults:
    **Sheets("Generated").Cells(1).Resize(Rw, 9) = Results**
    Sheets("Generated").Activate

倒数第二行是我在运行代码时看到错误发生的地方。关于出了什么问题以及如何解决它的任何建议？

标签： arraysexcelvbapaste