VBA - 多次复制特定范围的列的代码优化

Question

我有一个 excel 计算，它在 10 列中完成一次迭代（每组 11 列的空间 +1 列）。我的意图是使用 VBA 多次（最好是 350 或更多）复制这 11 列的范围。每次复制/粘贴范围时，计算的迭代都会引用前一组以实现“级联”效果。

我拼凑了一些 VBA 代码来完成这项任务，但处理起来非常慢，而且很难判断计算是否在迭代方案的较大端按预期工作。我添加了一个状态栏来跟踪进​​度，我注意到在 100 次左右的迭代后操作会停止。我目前将计数设置为 100 次迭代，因为这似乎是它挣扎的地方。

在问这个问题之前，我已经在这里寻求帮助并发现了 Application.ScreenUpdating = False 技巧，但这似乎并不能解决问题。

如何优化我目前拥有的东西？有没有更好的方法来做到这一点？

Sub CascadeCopy2()

Dim i As Integer, x As Integer
Dim count As Integer

Application.ScreenUpdating = False

count = 100

For i = 1 To count
    With Sheets("Calc").Range("V3:AF250").Offset(0, x)
        .Copy
        .Offset(0, 11).PasteSpecial
        Application.CutCopyMode = False
        x = x + 11
        
        
    End With
        Application.StatusBar = "Progress: " & i & " of " & count & ":" & Format(i / count, "0%")
    
Next i

Application.StatusBar = False

Application.ScreenUpdating = True
End Sub

Answer 1

要在工作表中重复复制范围，您需要执行 for 循环。您可以使用equals method，但您必须执行两个操作才能复制公式，请参见下文。

Dim x As Long
x = 1
    For i = 1 To 299 'the number of times you want to copy, change as needed
        With Sheets("Calc").Cells(1, x + 32).Resize(250, 32)
            .Value = Sheets("Calc").Cells(1, x).Resize(250, 32).Value
            .Formula = Sheets("Calc").Cells(1, x).Resize(250, 32).Formula
        End With
        x = x + 32
    Next i

Answer 2

关闭Application.ScreenUpdating 是一个好的开始。

在循环中复制粘贴大量数据会变得非常缓慢，因为复制粘贴需要使用剪贴板，效率不高。
尝试使用以下方式直接访问您的范围：

Sheets("Calc").Range("V3:AF250").Offset(0,x).value = Sheets("Calc").Range("V3:AF250").Offset(0,11).value

您也可以使用相同的原理，使用相同的模板复制格式、颜色或字体大小等。例如：

Sheets("Calc").Range("V3:AF250").Offset(0,x).Interior.ColorIndex = Sheets("Calc").Range("V3:AF250").Offset(0,11).Interior.ColorIndex

您可以根据自己的需要轻松调整它。