algorithm - 帮助我优化 VBA Excel 代码，用于将工作表上每一行的某些列复制到另一张

Question

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

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

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

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

这应该会加快速度。另外，看看 this page进行更多速度调整