根据表2B内容删除表1的对应行数据

APPLE123

根据表2B内容删除表1的对应行数据

1、如果表1  C列细分行业包含表2  B列的删除内容，则删除对应行的整行数据。
2、表2  B列的删除内容会根据工作实际随时调整，为避免频繁修改代码，因此单独作为一个工作表。本例测试为5项内容，今后还会增减。
3、希望VBA一键获取。
请老师们帮帮忙，谢谢！

盼盼198310

.............

gwjkkkkk

Option Explicit
Sub TEST()
    Dim regEx As Object, ar, i&, Rng As Range, strPat$
   
    Set regEx = CreateObject("VBScript.RegExp")
    ar = Sheets(2).[A1].CurrentRegion
    For i = 2 To UBound(ar)
        strPat = strPat & "|" & ar(i, 2)
    Next
    strPat = Mid(strPat, 2)
    regEx.Pattern = strPat
   
    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
   
    If Not Rng Is Nothing Then Rng.Delete
    Set regEx = Nothing: Set Rng = Nothing
    Beep
End Sub

gwjkkkkk

请参考附件。。。

半百

APPLE123

gwjkkkkk 发表于 2023-5-30 17:59
Option Explicit
Sub TEST()
    Dim regEx As Object, ar, i&, Rng As Range, strPat$

谢谢老师的帮助！

APPLE123

半百 发表于 2023-5-30 18:05

谢谢老师，通俗易懂

ykcbf1100

参与一下。

APPLE123

ykcbf1100 发表于 2023-5-30 19:52
参与一下。

谢谢老师的帮助！请教一下，
如果是包含表2的指定内容就可以删除，而非等于表2的指定内容才删除，该如何修改代码？谢谢！

APPLE123

半百 发表于 2023-5-30 18:05

谢谢老师的帮助！再请教一下，
如果是包含表2的指定内容就可以删除，而非等于表2的指定内容才删除，该如何修改代码？谢谢！