VBA 在行中循环遍历的例子

拈花ヽ惹草 提交于 2020-01-19 03:26:47

在单元格区域对象中循环:
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

标签
易学教程内所有资源均来自网络或用户发布的内容,如有违反法律规定的内容欢迎反馈
该文章没有解决你所遇到的问题?点击提问,说说你的问题,让更多的人一起探讨吧!