excel-vba 删除循环中的行或列
示例
如果要删除循环中的行(或列),则应始终从范围的末尾开始循环并在每一步中都移回。如果使用代码:
Dim i As Long
With Workbooks("Book1").Worksheets("Sheet1")
For i = 1 To 4
If IsEmpty(.Cells(i, 1)) Then .Rows(i).Delete
Next i
End With您会错过一些行。例如,如果代码删除了第3行,则第4行变为第3行。但是,变量i将更改为4。因此,在这种情况下,代码将丢失一行并检查另一行,而该行以前不在范围内。
正确的代码是
Dim i As Long
With Workbooks("Book1").Worksheets("Sheet1")
For i = 4 To 1 Step -1
If IsEmpty(.Cells(i, 1)) Then .Rows(i).Delete
Next i
End With
热门推荐
10 儿子立冬祝福语简短独特
11 对当兵的祝福语简短
12 侄儿高考试祝福语简短
13 伴郎红包祝福语朋友简短
14 媳妇生日简短祝福语朋友
15 公司年会祝福语简短最好
16 元旦感恩祝福语简短大全
17 红包祝福语简短10字
18 周六早晨祝福语简短