删行

ddz79101

老师！有表需要删除几组关键字的行，由于有组关键字是另关键字的一部分，导致将需要保留的行也删除了，请老师看看。谢谢

limonet

函数也是excel的精华。

longwin

没看到你的判断规则，从数据看，你可以选择把不带括号的删掉“（”

gwjkkkkk

Option Explicit
Sub TEST2()
    Dim ar, i&, regEx As Object, Rng As Range, iMsg As Long
   
    Set regEx = CreateObject("VBScript.RegExp")
    With regEx
        .Global = True
        .Pattern = "^增值税"
    End With
    With Sheets(1)
        .Activate
        With .[A1].CurrentRegion
            ar = .Value
            For i = 2 To UBound(ar)
                If regEx.test(ar(i, 3)) Then
                    If Rng Is Nothing Then
                        Set Rng = .Rows(i)
                    Else
                        Set Rng = Union(Rng, .Rows(i))
                    End If
                End If
            Next i
        End With
    End With
   
    If Not Rng Is Nothing Then
        Rng.Select
        iMsg = MsgBox("需要删除的已选定,按是删除", vbExclamation + vbYesNo, "!!!")
        If iMsg = vbYes Then Rng.EntireRow.Delete
    End If
   
    Set Rng = Nothing
    Set regEx = Nothing
    Beep
End Sub

gwjkkkkk

请参考附件。。。

ddz79101

longwin 发表于 2024-6-30 16:51
没看到你的判断规则，从数据看，你可以选择把不带括号的删掉“（”

谢谢老师！就是删除增值税专用发票和增值税电子普通发票

ddz79101

gwjkkkkk 发表于 2024-6-30 17:05
请参考附件。。。

谢谢老师！运行正确！你将首字符“增值税”作为关键字，未用全部的关键字，避免了只要有此关键字的行都被删除了。谢谢老师

ddz79101

gwjkkkkk 发表于 2024-6-30 17:05
请参考附件。。。

老师！花后补。

ddz79101

limonet 发表于 2024-6-30 16:49
函数也是excel的精华。

谢谢老师！函数正确！花后补