导致 VBA 宏出现性能问题的一个常见问题是使用 .Select 函数。每次在 Excel 中选择单元格时，都会将此选择对象更改事件通知每个单一的 Excel 加载项（包括 think-cell），这会大幅降低宏的速度。尤其是使用宏记录器创建的宏，更容易出现此类问题。

例如：如何避免使用 .Select 语句

接下来看看以下的简单宏 AutoFillTable ：

Sub AutoFillTable()
    Dim iRange As Excel.Range
    Set iRange = Application.InputBox(prompt:="Enter range", Type:=8)
    Dim nCount As Integer
    nCount = iRange.Cells.Count
    For i = 1 To nCount
        Selection.Copy
        If iRange.Cells.Item(i).Value = "" Then
            iRange.Cells.Item(i).Range("A1").Select
            ActiveSheet.Paste
            iRange.Cells.Item(i).Range("A1").Select
        End If
End Sub

此函数将打开输入框，该框会请求用户指定单元格范围。此函数会移动范围内的所有单元格。若发现非空的单元格，它会将单元格内容复制到剪贴板。该函数会将剪贴板内容粘贴到随后的每个空单元格。

AutoFillTable 使用剪贴板来复制单元格内容。因此，该函数需要选择所操作的每个单元格，以便 Excel 知道从哪个单元格进行复制以及应粘贴到哪个单元格。建议的解决方案显示在以下 AutoFillTable2 函数中：

Sub AutoFillTable2()
    Dim iRange As Excel.Range
    Set iRange = Application.InputBox(prompt:="Enter range", Type:=8)
    Dim iCellMaster As Excel.Range
    For Each iCell In iRange.Cells
        If iCell.Value = "" Then
            If Not iCellMaster Is Nothing Then
                iCellMaster.Copy (iCell)
            End If
            Set iCellMaster = iCell
        End If
    Next iCell
End Sub

AutoFillTable2 与以上函数在两个重要方面有所不同：