VBA 在行中循环遍历的例子

在单元格区域对象中循环：
For Each c In Range("$A$2:$A$" & Cells(Rows.count, "A").End(xlUp).row
    ‘do something
Next c

基于上述代码运行后，你会发现，少量数据处理上还行，但大量数据之后，电脑卡慢，用时较长等缺点就出来了。
那要如何操作才能既快速，又能按行的要求进行循环遍历呢？
答案是：使用数组替代对象，然后在数组中循环。

 

使用将单元格区域对象的值装入数组，在数组中循环：

Dim i As Long
Dim varray As Variant
varray = Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row).Value
For i = 1 To UBound(varray, 1)
    ' do something
Next

 

下面是一个完整的例子，此示例仅在列A中符合条件的每个行之后插入一行。在行中，从A2开始，插入期间将+2”添加到变量i中。如果我们用A1启动我们的数组，它将为+1。

Sub test()
Dim varray As Variant
Dim i As Long
varray = Range("A2:A10").Value
'必须倒序循环
For i = UBound(varray, 1) To LBound(varray, 1) Step -1
    '此处放置你自己的条件判断代码等
    If varray(i, 1) = "moo" Then
            Range("A" & i + 2).EntireRow.Insert
    End If
Next
End Sub