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
热门推荐
6 保研的祝福语简短
10 年轻20岁祝福语简短
11 朋友结婚祝福语信息简短
12 女孩婚礼贺卡祝福语简短
13 30段点歌简短祝福语
14 虎年春节祝福语图文简短
15 写给后妈祝福语大全简短
16 简短回复生日祝福语
17 校长送毕业祝福语简短
18 毕业立体贺卡祝福语简短