删除列中包含某字符的行，有附件

见附件，删除列中包含某字符的行，有附件

1、请用VBA的方法，删除'喜好'这一列中包含“球”的行
2、同样用VBA方法，删除'喜好'这一列中不包含“球”的行

删除包含关键字的行.rar (2.21 KB)

Sub 按钮1_单击()
With Range("d2", [d65536].End(3))
  .Replace "*球*", "=球"
  .SpecialCells(-4123, 16).Delete (3)
End With
End Sub
Sub 按钮2_单击()
r = Range("d1", [d65536].End(3))
For i = 2 To UBound(r)
If InStr(r(i, 1), "球") = 0 Then r(i, 1) = ""
Next
Range("d1", [d65536].End(3)) = r
Range("d1", [d65536].End(3)).SpecialCells(4).Delete (3)
End Sub

Option Explicit

Sub 宏1()
'
' 宏1 宏

'
Dim i As Integer, n As Integer, m As Integer
Dim j
j = "球"
n = Range("a1").CurrentRegion.Rows.Count

For i = 2 To n + 1
    For m = 1 To 2

   If Mid(Cells(i, 4), m, 1) = j Then
   
   
    Rows(i).Select
    Selection.Delete Shift:=xlUp
   i = i - 1
    Else: GoTo 100
   
    End If
100:      Next m
          Next i
End Sub
删除代球字得

这样好像不行哦