[已解决]删除特定字符所在的行的VBA

ZMW

    请教：当 D 列查找到“有”字时，删除“有”字所在的整个行，保留其它行的VBA怎么编码？，谢谢！

最佳答案

月排行榜 / 总排行榜

dsmch

2015-1-8 12:44

1. Sub Macro1()
   
2. On Error Resume Next
   
3. With Range("d2:d" & Range("d65536").End(xlUp).Row)
   
4.     .Replace "*有*", ""
   
5.     .Replace "*不满意*", ""
   
6.     .Replace "*2否*", ""
   
7.     .SpecialCells(xlCellTypeBlanks).EntireRow.Delete
   
8. End With
   
9. End Sub

复制代码

跳转到最佳答案楼层

爱疯

Sub Click()
    Dim r%, A, i%, s$
    Application.ScreenUpdating = False
    r = Cells(Rows.Count, 4).End(xlUp).Row
    A = Range("d1:d" & r)
    For i = 1 To r
        If InStr(A(i, 1), "有") Then s = s & "," & i & ":" & i
    Next i
    Range(Mid(s, 2)).Delete
End Sub
Book1b.rar (8.77 KB, 下载次数: 3)

2015-1-7 16:57 上传

点击文件名下载附件

dsmch

………………

ZMW

两位大师的答案都最佳，谢谢！！

ZMW

dsmch 发表于 2015-1-7 17:06
………………

大师，我加一个或者条件：“不满意”，两个字的行也删除，代码怎么运行时出现1004？谢谢指导！！

dsmch

1. Sub Macro1()
   
2. On Error Resume Next
   
3. With Range("d2:d" & Range("d65536").End(xlUp).Row)
   
4.     .Replace "*有*", ""
   
5.     .Replace "*不满意*", ""
   
6.     .Replace "*2否*", ""
   
7.     .SpecialCells(xlCellTypeBlanks).EntireRow.Delete
   
8. End With
   
9. End Sub

复制代码

ZMW

dsmch 发表于 2015-1-8 12:44

谢谢大师！！