删除指定列中包含的指定汉字所在行

又来麻烦好心的高手
能不能帮我再写个宏，
把C列部门项 中包含 东四楼，美容美发，粽子屋的行删除
谢谢，麻烦你呢！！

附件

1111.zip(15.65 KB)

2011-8-9 14:36, 下载次数: 4

作者: jjip123   发布时间: 2011-08-09

作者: qq89486841   发布时间: 2011-08-09

作者: Zamyi   发布时间: 2011-08-09

引用:

原帖由 Zamyi 于 2011-8-9 14:53 发表
For Each c In Array("*东四楼*", "*美容美发*", "*粽子屋*")
[c:c].Replace c, "#N/A"
Next
On Error Resume Next
[c:c].SpecialCells(2, 16).Delete (3)

您好，我测试了但不能正常删除。[c:c].SpecialCells(2, 16).Delete (3)到这句就不行了，不知道是什么原因？另外能麻烦您解释下这句代码的含义吗？好难懂啊

作者: flysum2008   发布时间: 2011-08-09

看看这个如何？
是两行一起删除吗

附件

1111.rar(15.87 KB)

2011-8-9 15:21, 下载次数: 0

作者: wpxxsyzx   发布时间: 2011-08-09

引用:

原帖由 flysum2008 于 2011-8-9 15:11 发表

您好，我测试了但不能正常删除。[c:c].SpecialCells(2, 16).Delete (3)到这句就不行了，不知道是什么原因？另外能麻烦您解释下这句代码的含义吗？好难懂啊

没用你的附件测试，也许是你的附件是从其他软件COPY来的吧，“#N/A”写到单元格里前面多了个“'”号，改下：
For Each c In Array("*东四楼*", "*美容美发*", "*粽子屋*")
[c:c].Replace c, "#N/A" '把含有上面中文替换为“#N/A ”
Next
[c:c] = [c:c].Value'把“#N/A ”前面单引号去除
On Error Resume Next
[c:c].SpecialCells(2, 16).Delete (3)'定位错误常量值，并整行删除

作者: Zamyi   发布时间: 2011-08-09

谢谢讲解！
[c:c].SpecialCells(2, 16).Delete (3)中的2，16和3分别是什么意思啊？我查帮助也没有

作者: flysum2008   发布时间: 2011-08-09