[已解决]删除选定列中指定字符所在行

yjwdjfqb

删除选定列中指定字符所在行

这个是我根据自己喜爱修改的一个，删除选定列中指定字符所在行

请朋友们帮帮我看看，有没有bug，速度还可以改进吗，谢谢大家指教！..
删除选定列中指定字符所在行.rar (6.93 KB, 下载次数: 39)

2014-3-30 22:01 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

dsmch

2014-3-30 22:32

………………

跳转到最佳答案楼层

dsmch

1. Sub 删除选定列中指定字符所在行()
   
2. On Error Resume Next
   
3. Dim i%, n%, rng As Range, rng2 As Range
   
4. Set rng = Application.InputBox("请选择操作列", "提示", "请选择单列", Type:=8)    '选择一个操作列
   
5. Set rng2 = Application.Intersect(rng, ActiveSheet.UsedRange)
   
6. If rng2 Is Nothing Then Exit Sub
   
7. zf = InputBox("请输入指定字符", "提示")
   
8. rng2.Replace zf, "", lookat:=xlWhole
   
9. rng2.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
   
10. MsgBox "操作完毕！", vbInformation + vbOKOnly, "提示"
    
11. End Sub
    

复制代码

dsmch

………………

yjwdjfqb

dsmch 发表于 2014-3-30 22:32
………………

感谢朋友的优化，请教下

定义Dim i%　　　和　　定义Dim i　二个有什么区别吗

另外，我的那个存在哪些bug呢，谢谢朋友了！

dsmch

yjwdjfqb 发表于 2014-3-31 08:37
感谢朋友的优化，请教下

定义Dim i%　　　和　　定义Dim i　二个有什么区别吗

如果变量类型不明确，可以不声明，像dim i 和 不声明结果一样
你的代码是对整列操作，因而效率不高，我的代码思路是这样：
选取列，如果列和数据区域有重叠，把重叠区域的符合字符的值替换为空，
删除空格，如果指定的字符不存在，忽略错误

中铁隧道

如果要一次性删除多个单元格中带有”#“，“！”，“*”所处行的操作呢？不要这个对话框，直接在代码中设置好要查找的不同符号。那位老师搞段代码解决一下这个问题！