帮助我优化 VBA Excel 代码，以便将工作表上每一行的某些列复制到另一个工作表上

Question

我需要将工作表 A 中每一行的某些列复制到工作表 B 中。

我创建了一个子项目，它创建了匹配列号的 2 个数组（变体），因此我可以将工作表 A 中的第 3 列映射为等于工作表 B 中的第 8 列工作表 B 等。

一切正常，问题是它相当慢，这里是：

Sub insertIntoSelectedOpps(opCols As Variant, siebelCols As Variant, ByVal length As Integer)

Dim insertRange As Range
Dim siebelRange As Range
Dim rowCount As Integer

Set insertRange = shSelected.Range("a3", "bb4") 'very wide table!'
Set siebelRange = shDatabase.UsedRange.Rows

rowCount = siebelRange.Rows.count

MsgBox "siebel row count: " & rowCount

For i = 2 To rowCount

    Set insertRange = shSelected.Range("a3", "bb4")
    insertRange.Insert

    For x = 1 To length - 1
        If opCols(x) <> -1 Then 'unequal to -1'
            insertRange.Cells(1, opCols(x)).value = siebelRange.Cells(i, siebelCols(x)).value
        End If
    Next x

Next i
End Sub

不要担心 IF 情况，这是业务逻辑，以防映射中的列名称找不到。

Answer 1

通常，在进行大量处理之前停止屏幕更新和计算是一个好主意：

在 msgbox 之后：

Application.ScreenUpdating = False
xlCalc = Application.Calculation
Application.Calculation = xlCalculationManual

在next 之后

Application.Calculation = xlCalc
Application.ScreenUpdating = True

这应该会加快速度。另外，请查看此页面以进行更多速度调整