在单元格区域对象中循环:
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
来源:CSDN
作者:logo_28
链接:https://blog.csdn.net/logo_28/article/details/103943133