(VBA-Excel) 大范围传输的有效方法

Question

我想知道，对于在工作簿或工作表之间传输大量单元格（大约 100 000 个单元格 - 10 000 x 10），哪种方法更有效：
1. 复制粘贴为值：

rng1.Copy
rng2.PasteSpecial xlValues
Application.CutCopyMode=False

2. 仅传递带有 .Value 的值：

rng2.Value = rng1.value
'The ranges will be predefined to be the same size

提前感谢您的帮助！

Answer 1

我很确定您的第二个选项是最好的，但不会传输格式。您可能需要考虑改用Value2，与使用Value 相比，性能会有所提升。

rng2.Value2 = rng1.value2

编辑 1

在进行一些测试后，我很惊讶地发现复制/粘贴可以更快，在下面的测试中大约快 5 倍，但这是一个大部分为空的范围。此外，Value2 会更快地遇到内存不足错误。话虽这么说，Value2 是更简洁的代码，它不会清除剪贴板内容，这是值得考虑的事情。

Public Declare Function GetTickCount Lib "kernel32.dll" () As Long
Sub test()
    Dim r1, r2 As Range
    Dim t As Long

    Set r1 = Sheets("S1").Range("A1:Z100000")
    Set r2 = Sheets("S2").Range("A1:Z100000")

    'Method1
    t = GetTickCount
    r1.Copy
    r2.PasteSpecial xlValues
    Debug.Print GetTickCount - t

    'Method 2
    t = GetTickCount
    r2.Value2 = r1.Value2
    Debug.Print GetTickCount - t

End Sub

编辑 2

之前的测试大部分是空白范围。用表格填充范围并用内容填充表格表明Value2 在处理整个范围时要快约 40%，但它总是处理整个范围。我怀疑不同之处可能在于复制/粘贴具有更肤浅的优势，从而在存在空单元格的情况下实现性能提升。