vba - 没有 ActiveCell 的 Excel 中的 VBA 编程

Question

有谁知道是否可以在不使用 ActiveCell 的情况下使用 VBA 循环 Excel 电子表格？

例如，如何在不使用 ActiveCell 的情况下在 VBA 中从头开始创建 COUNTIF 函数（或者显然调用 COUNTIF 函数）？

我想避免使用 ActiveCell，因为当您通常尝试操作简单矩阵时，尤其是在循环数千个单元格时，滚动活动单元格似乎是不必要的资源使用。

Answer 1

Dim c as Range

For Each c in Sheets("Sheet1").Range("A1:A1000").Cells
    'do something with c
Next c

Answer 2

蒂姆所说的。

只是为了解决您问题的计数部分，这是一种不使用公式的方法：

Sub Macro14()

Dim c As Range
Dim rng As Range
Dim count_if As Integer

Set rng = Sheets("Sheet1").Range("A1:A1000")

For Each c In rng
    If c = "Apple" Then
        count_if = count_if + 1
    End If
Next c

Debug.Print count_if
End Sub