我将在之前给出的所有优秀答案中补充一个小重点:

为了避免使用Select，你能做的最大的事情可能就是在你的VBA代码中尽可能使用命名范围(结合有意义的变量名)。上面提到了这一点，但它被掩盖了一点;然而，它值得特别关注。

下面是自由使用命名范围的另外几个原因，不过我相信我还能想出更多的原因。

命名范围使您的代码更容易阅读和理解。

例子:

Dim Months As Range
Dim MonthlySales As Range

Set Months = Range("Months")
' E.g, "Months" might be a named range referring to A1:A12

Set MonthlySales = Range("MonthlySales")
' E.g, "Monthly Sales" might be a named range referring to B1:B12

Dim Month As Range
For Each Month in Months
    Debug.Print MonthlySales(Month.Row)
Next Month

很明显，命名范围monthales和monthsale包含了什么，以及过程在做什么。

为什么这很重要?部分原因是其他人更容易理解它，但即使你是唯一一个看到或使用你的代码的人，你仍然应该使用命名范围和良好的变量名，因为你会忘记一年后你打算用它做什么，你会浪费30分钟来弄清楚你的代码在做什么。

命名范围确保当电子表格的配置改变时(不是如果!)宏不太可能被破坏。

考虑一下，如果上面的例子是这样写的:

Dim rng1 As Range
Dim rng2 As Range

Set rng1 = Range("A1:A12")
Set rng2 = Range("B1:B12")

Dim rng3 As Range
For Each rng3 in rng1
    Debug.Print rng2(rng3.Row)
Next rng3

这段代码一开始会工作得很好，直到您或未来的用户决定“天哪，我想我要在a列中添加一个新的列，其中包含年份!”，或者在月份和销售列之间添加一个费用列，或者为每个列添加一个标题。现在，你的密码坏了。因为你使用了糟糕的变量名，你会花更多的时间来解决这个问题。

如果一开始就使用了命名范围，那么Months和Sales列就可以随意移动，代码就可以继续正常工作。

我要给出简短的答案，因为其他人都给出了长答案。

当您记录宏并重用它们时，您将得到.select和.activate。当你选择一个单元格或工作表时，它会使它激活。从那时起，当你使用像Range这样的非限定引用时。值他们只是使用活动单元格和表。如果您没有观察代码放置的位置或用户单击工作簿，这也会产生问题。

因此，您可以通过直接引用单元格来消除这些问题。这是:

'create and set a range
Dim Rng As Excel.Range
Set Rng = Workbooks("Book1").Worksheets("Sheet1").Range("A1")
'OR
Set Rng = Workbooks(1).Worksheets(1).Cells(1, 1)

或者你可以

'Just deal with the cell directly rather than creating a range
'I want to put the string "Hello" in Range A1 of sheet 1
Workbooks("Book1").Worksheets("Sheet1").Range("A1").value = "Hello"
'OR
Workbooks(1).Worksheets(1).Cells(1, 1).value = "Hello"

这些方法有多种组合，但对于像我这样没有耐心的人来说，这将是尽可能简短地表达的总体思想。

两个主要原因，为什么.Select， .Activate, Selection, Activecell, Activesheet, Activeworkbook等应该避免

它会降低代码的速度。 它通常是运行时错误的主要原因。

我们如何避免它?

1)直接与相关对象一起工作

考虑下面的代码

Sheets("Sheet1").Activate
Range("A1").Select
Selection.Value = "Blah"
Selection.NumberFormat = "@"

这段代码也可以写成

With Sheets("Sheet1").Range("A1")
    .Value = "Blah"
    .NumberFormat = "@"
End With

2)如果需要，声明你的变量。上面相同的代码可以写成

Dim ws as worksheet

Set ws = Sheets("Sheet1")

With ws.Range("A1")
    .Value = "Blah"
    .NumberFormat = "@"
End With

这是一个很好的答案，但我在这个话题上忽略了我们真正需要Activate的时候。每个人都说它不好，但没有人解释在什么情况下使用它是有意义的。

无法避免使用. activate /. select的情况。(将添加更多的链接，当我遇到他们)

当您希望将工作表显示给用户以便用户可以看到它时。 例如工作宏从表单控件运行时返回错误，强制使用.Activate 当通常的Text To Columns / .Formula = .Formula方法不起作用时，您可能不得不求助于.Select

在我看来，.select的使用来自于像我这样的人，他们通过记录宏然后修改代码开始学习VBA，而没有意识到.select和后续的选择只是一个不必要的中间人。

.select可以避免，就像许多人已经发布的那样，通过直接使用已经存在的对象，这允许各种间接引用，如以复杂的方式计算I和j，然后编辑cell(I,j)等。

否则，.select本身并没有什么隐含的错误，你可以很容易地找到它的用途，例如，我有一个电子表格，我用日期填充，激活宏，对它做一些魔法，并在一个单独的表格上以可接受的格式导出它，然而，这需要一些最终手动(不可预知的)输入到相邻的单元格。这时，使用.select可以节省额外的鼠标移动和点击。

我注意到这些答案都没有提到. offset属性。这也可以用来避免在操作某些单元格时使用Select操作，特别是在引用选定的单元格时(正如OP中使用ActiveCell提到的那样)。

这里有几个例子:

我还假定ActiveCell是J4。

ActiveCell。Offset(2,0).Value = 12

这将从activecell(即J6)往下两行更改单元格的值为12 A -2会把值12放在J2上面两行

ActiveCell.Offset(0, 1)。ActiveCell.Offset副本(2)

这将把右边一列的单元格(k4)复制到活动单元格(L4)两列的单元格。 注意，offset参数中0可能被省略 因此:activecell。offset(，2)和activecell。offset(0,2)是一样的 类似于前面的例子，-1是左边的一列(i4)

这并不是说这些选项比上面的选项更好，但它肯定比使用select要好。注意，在工作表中应该避免使用EXCEL函数偏移量，因为它是一个易失函数。

使用. parent特性，这个例子展示了如何只设置一个myRng引用就可以动态访问整个环境，而不需要任何. select、. activate、. activecell、. activeworkbook、. activesheet等等。(没有任何通用的. child特性。)

Sub ShowParents()
    Dim myRng As Range
    Set myRng = ActiveCell
    Debug.Print myRng.Address                    ' An address of the selected cell
    Debug.Print myRng.Parent.name                ' The name of sheet, where MyRng is in
    Debug.Print myRng.Parent.Parent.name         ' The name of workbook, where MyRng is in
    Debug.Print myRng.Parent.Parent.Parent.name  ' The name of application, where MyRng is in

    ' You may use this feature to set reference to these objects
    Dim mySh  As Worksheet
    Dim myWbk As Workbook
    Dim myApp As Application

    Set mySh = myRng.Parent
    Set myWbk = myRng.Parent.Parent
    Set myApp = myRng.Parent.Parent.Parent
    Debug.Print mySh.name, mySh.Cells(10, 1).Value
    Debug.Print myWbk.name, myWbk.Sheets.Count
    Debug.Print myApp.name, myApp.Workbooks.Count

    ' You may use dynamically addressing
    With myRng
        .Copy

        ' Pastes in D1 on sheet 2 in the same workbook, where the copied cell is
        .Parent.Parent.Sheets(2).Range("D1").PasteSpecial xlValues

        ' Or myWbk.Sheets(2).Range("D1").PasteSpecial xlValues

        ' We may dynamically call active application too
        .Parent.Parent.Parent.CutCopyMode = False

        ' Or myApp.CutCopyMode = False
    End With
End Sub