VBA编程Excel中没有ActiveCell

Question

有谁知道是否有可能通过循环使用VBA不使用ActiveCell Excel电子表格？

举个例子，你怎么可以从头开始创建的VBA COUNTIF函数，而无需使用ActiveCell（或呼吁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