使用带有表和循环的数组

Question

很抱歉，如果已经有人问过这类问题，我找不到所需的答案，而且我对 VBA 还是很陌生。

我正在尝试通过在两个工作簿之间移动的索引匹配将一个表中的一些值匹配到另一个表。为了正确地做到这一点，我使用了两个循环 For To。但是当涉及到几千行时，我的代码真的很慢。我可以用数组或其他东西改进它吗？

Dim mainWB  As Workbook
Dim mainWS  As Worksheet
Set mainWB = ActiveWorkbook
Set mainWS = mainWB.Sheets(1)

Dim RowsToProcess As Long
RowsToProcess = mainWS.Range("C" & Rows.Count).End(xlUp).Row

Dim lastCol As Long
lastCol = mainWS.Cells(10, Columns.Count).End(xlToLeft).Column

Range(Cells(11, 8), Cells(RowsToProcess, lastCol)).Select
Selection.NumberFormat = "General"

For i = 1 To lastCol
    For a = 1 To RowsToProcess
        If Workbooks("template.xls").Sheets("#").Cells(10 + a, 7 + i).Value <> vbNullString Then
            Cells(10 + a, 7 + i).Select
            ActiveCell.FormulaR1C1 = _
                "= "Long Formula" "
        End If
    Next
Next

对于我的长公式。它基本上是在做 2 Index(Match. between this Workbook and 2 others,但我想我会把它拿出来让它更清楚

非常感谢您的帮助！

Answer 1

如果您正在有效地定义一个范围，您可以使用第一列和最后一列和行地址并创建一个范围对象。 在此处查看示例：Dynamic ranges

然后你可以这样做： Range(myRange).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "LongFormula" 它可以有效地用您的公式替换所有空白单元格，而无需执行所有循环。

将这些步骤与 cmets 中提到的项目结合起来，例如避免 .select。

总结：

避免使用 .select

在处理对象时尽可能使用 WITH

获取第一个单元格地址和最后一个单元格地址并创建您的范围对象

使用特殊单元格方法将此范围内的空白设置为您的公式。