[已解决]满足条件删除所在行

opelwang

从第4行 到 最后一个非完全空行 如果 B:C 都为空，则删除该行 由于数据量较大，用一般的判断循环方法，速度不理想。 求数组的解法，当查找到符合条件的行时，记录，最后一次性删除。

                  测试附件： 测试文件.rar (10.13 KB, 下载次数: 28)

2011-11-26 19:37 上传

点击文件名下载附件


   ，

最佳答案

月排行榜 / 总排行榜

Benol

2011-11-26 21:37

不需要数组吧，试试下面这句代码。

1. Intersect(ActiveSheet.UsedRange, _
   
2. Range("B:B").SpecialCells(4).EntireRow, _
   
3. Range("C:C").SpecialCells(4).EntireRow).Delete

复制代码

跳转到最佳答案楼层

Benol

不需要数组吧，试试下面这句代码。

1. Intersect(ActiveSheet.UsedRange, _
   
2. Range("B:B").SpecialCells(4).EntireRow, _
   
3. Range("C:C").SpecialCells(4).EntireRow).Delete

复制代码

mxg825

真牜，真精简。。。。。。

opelwang

感谢指点，好好测试下再回复。

Benol

还可以更简一点

1. Intersect(ActiveSheet.UsedRange, Range("B:B").SpecialCells(4).Offset(0, 1).SpecialCells(4).EntireRow).Delete

复制代码