问为什么每个循环比循环快？

EN

你认为For Each比For 1 To快的假设是错误的。这两个循环通过一组数字，他们可以以相同的速度做。

在For Each变体中，数字标识集合中的对象，如Sheets(1)、Sheets(2)、Sheets(3)等。这些工作表没有在循环中加载或访问。他们只是被引用。

相比之下，For i = 1 to 3: Set Ws = Sheets(i)只需创建对工作表的引用。

因此，差异产生于您对所引用的对象所做的事情，而不是您引用它们的方式。For Each通常作为稍微简单一些的代码出现。但是，如果您希望引用ActiveSheet.Cells(3)，您确实需要知道这将是C1还是A3，而显然更容易编写代码的代价是透明性。我把它当作品味的问题。

Dim Arr As Variant
Dim R As Long
Arr = Range("A1:A20")
For R = 1 To UBound(Arr)
    Debug.Print Arr(R, 1)
Next R

比

Dim Rng As Range
Dim Cell As Range
Set Rng = Range("A1:A20")
For Each Cell in Rng
    Debug.Print Cell.Value
Next Cell

但这是因为第二段代码对第一段代码引用了20次工作表。也许这就是你读到的不同之处。