[已解决]请教高手如何用宏删除不含关键字".doc"的行,谢谢!

bipl607

如题,详见附件,谢谢!

sRcijMMt.rar (2.76 KB, 下载次数: 5)

2010-12-20 19:47 上传

点击文件名下载附件
请教高手如何用宏删除不含关键字".doc"的列,谢谢!

[此贴子已经被作者于2010-12-20 19:48:32编辑过]

最佳答案

月排行榜 / 总排行榜

lyn666666

2010-12-20 20:08

Sub mydel()
Dim i%, Erow%, s
'Erow = [A65536].End(3).Row
For i = 10 To 1 Step -1
    s = InStr(1, Cells(i, 3), ".doc")
    If s = 0 Then
        Rows(i).Delete
    End If
Next
End Sub

跳转到最佳答案楼层

lyn666666

Sub mydel()
Dim i%, Erow%, s
'Erow = [A65536].End(3).Row
For i = 10 To 1 Step -1
    s = InStr(1, Cells(i, 3), ".doc")
    If s = 0 Then
        Rows(i).Delete
    End If
Next
End Sub

bipl607

谢谢!已给最佳答案