如何实现把名单里的名字在excel每一个表里，找到该名并删除？

lhj1861

如何实现把删除名单里的名字在excel每一个表里找到并把含有该名字的整行删除？

lhj1861

一大早就爬起来继续问，大家帮帮忙

半百

Sub 删除()
Dim RNG As Range
Set D = CreateObject("Scripting.Dictionary")
A = Sheets("需要删除的名单").UsedRange
For I = 2 To UBound(A)
    D(A(I, 2)) = ""
Next
For Each SH In Sheets
    If SH.Name <> "需要删除的名单" Then
        For I = 2 To SH.UsedRange.Rows.Count
            If D.EXISTS(SH.Cells(I, 2).Value) Then
                If RNG Is Nothing Then
                    Set RNG = SH.Cells(I, 2)
                Else
                    Set RNG = Union(RNG, SH.Cells(I, 2))
                End If
            End If
        Next
        RNG.EntireRow.Delete
        Set RNG = Nothing
    End If
Next
End Sub

lsc900707

lhj1861 发表于 2018-6-15 07:55
一大早就爬起来继续问，大家帮帮忙

1. Sub gj23w98()
   
2.     For Each sht In Sheets
   
3.         If InStr(sht.Name, "表") Then
   
4.             With sht
   
5.                 For i = .Cells(Rows.Count, 2).End(3).Row To 2 Step -1
   
6.                     For k = 2 To Cells(Rows.Count, 2).End(3).Row
   
7.                         If .Cells(i, 2) = Cells(k, 2) Then
   
8.                             .Rows(i).Delete
   
9.                         End If
   
10.                     Next
    
11.                 Next
    
12.             End With
    
13.         End If
    
14.     Next
    
15. End Sub

复制代码

lsc900707

lhj1861 发表于 2018-6-15 07:55
一大早就爬起来继续问，大家帮帮忙

附件供参考：

lhj1861

lsc900707 发表于 2018-6-15 08:57
附件供参考：

太感谢了，非常满意，谢谢了

lhj1861

半百 发表于 2018-6-15 08:29
Sub 删除()
Dim RNG As Range
Set D = CreateObject("Scripting.Dictionary")

这种写法很新颖，我要研究一下，谢谢啦