[已解决]为什么不能删除干净

ww0000

我用VBA删除满足条件的行,为什么不能删除干净?请高手看看问题出在哪里? ceHGMbMp.rar (8.3 KB, 下载次数: 0)

2010-12-19 12:11 上传

点击文件名下载附件
为什么不能删除干净

最佳答案

月排行榜 / 总排行榜

Zipall

2010-12-20 10:28

   If sh.Cells(i, 1).Value = "张三" Then

        sh.Rows(i).Delete  '删除满足条件单元格所在的行

       End If

如果row(i)被删除了,那么它的下一行就变成了第i行

而当运行到next的时候,这个新晋的第i行就被跳过了

这个问题我们通常用从下向上找的方法来避免.

For i = sh.[a65536].End(xlUp).Row To 1 Step -1

跳转到最佳答案楼层

ww0000

今天那么帅老师没看我的帖子呀![em04]

Zipall

   If sh.Cells(i, 1).Value = "张三" Then

        sh.Rows(i).Delete  '删除满足条件单元格所在的行

       End If

如果row(i)被删除了,那么它的下一行就变成了第i行

而当运行到next的时候,这个新晋的第i行就被跳过了

这个问题我们通常用从下向上找的方法来避免.

For i = sh.[a65536].End(xlUp).Row To 1 Step -1

ww0000

太谢谢Zipall 了!

平时只会改别人的代码,原来自己还有那么多需要学习的地方!

zylj

学习