[已解决]请高手帮我把这代码改下，改成判断 J 列数据如为0或空行则删除行

excel010

请高手帮我把这代码改下，改成判断 J 列数据如为0或空行则删除行

代码如下：
Sub scwlsj() '
Dim r As Integer
r = Sheet2.Range("C65536").End(3).Row
For i = r To 3 Step -1
If Application.WorksheetFunction.CountA(Sheet2.Range("J" & i & ":J" & i)) = 0 Then
Rows(i).Delete
End If
Next
End Sub


附件：
删除Book1.rar (10.4 KB, 下载次数: 16)

2011-12-28 17:08 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

jiahua1010

2011-12-28 18:58

这一个运行速度可能会快一点。 删除Book0.rar (10.17 KB, 下载次数: 24)

2011-12-28 18:58 上传

点击文件名下载附件

跳转到最佳答案楼层

zsx720629

看一下，这样行不行？                             

excel010

zsx720629 发表于 2011-12-28 17:28
看一下，这样行不行？

If Sheet2.Range("J" & i & ":J" & i) = 0 Or Sheet2.Range("J" & i & ":J" & i) = 6 Or Sheet2.Range("J" & i & ":J" & i) = "" Then


大师，这段代码如果要修改成，判断某个特定汉子进行删除，怎么弄？

例如 J 列包含有   (考验)    这2个字，  则删除包含这两字的行

liuguansky

like "*考验*"
你的附件中没有出现。

jiahua1010

excel010 发表于 2011-12-28 17:56
If Sheet2.Range("J" & i & ":J" & i) = 0 Or Sheet2.Range("J" & i & ":J" & i) = 6 Or Sheet2.Range("J ...

你看看是不是要这样的效果
删除Book1.rar (10.39 KB, 下载次数: 5)

2011-12-28 18:41 上传

点击文件名下载附件

jiahua1010

这一个运行速度可能会快一点。 删除Book0.rar (10.17 KB, 下载次数: 24)

2011-12-28 18:58 上传

点击文件名下载附件