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

ykcbf1100

APPLE123 发表于 2023-5-30 20:03
谢谢老师的帮助！请教一下，
如果是包含表2的指定内容就可以删除，而非等于表2的指定内容才删除，该如何 ...

这样改一下即可。

APPLE123

ykcbf1100 发表于 2023-5-30 20:14
这样改一下即可。

谢谢老师！

cyq4896

试试是这样效果吧

全党

Sub shishi()
Set dic = CreateObject("scripting.dictionary")
arr = Sheet1.UsedRange
With Sheets("删除内容")
rn = .Cells(Rows.Count, 2).End(xlUp).Row
brr = .Range("b2:b" & rn)
End With
For i = 1 To UBound(arr)
dic(arr(i, 1)) = Application.Index(arr, i)
Next
For Each Key In dic.keys
  For j = 1 To UBound(brr)
    If InStr(dic(Key)(3), brr(j, 1)) <> Empty Then
    dic.Remove (Key)
    GoTo x
    End If
  Next
x:
Next
Sheet1.UsedRange.ClearContents
Sheet1.Range("a1").Resize(dic.Count, UBound(arr, 2)) = WorksheetFunction.Transpose(WorksheetFunction.Transpose(dic.items))
End Sub

APPLE123

全党 发表于 2023-5-30 21:17
Sub shishi()
Set dic = CreateObject("scripting.dictionary")
arr = Sheet1.UsedRange

谢谢老师！
结果正确，但有些不理解，请教一下，
dic(arr(i, 1)) = Application.Index(arr, i)这句代码什么意思？为何是dic(arr(i, 1))不是dic(arr(i, 3))，细分行业不是在C列吗？但字典却在第1列
If InStr(dic(Key)(3), brr(j, 1)) <> Empty Then，为何dic(Key)(3)这里有个3，如何理解？
麻烦老师了，谢谢！

全党

APPLE123 发表于 2023-5-31 08:47
谢谢老师！
结果正确，但有些不理解，请教一下，
dic(arr(i, 1)) = Application.Index(arr, i)这句代码 ...

用aRR(i,1)是股票代码不可能重复，避免字典去重，漏算数据；
Application.Index(arr, i)这句代码意思是字典的值取arr数组的第几行；
dic(Key)(3)表示细分行业所在列，进行是否包含判断

APPLE123

全党 发表于 2023-5-30 21:17
Sub shishi()
Set dic = CreateObject("scripting.dictionary")
arr = Sheet1.UsedRange

谢谢老师的帮助！
不好意思，昨天没花了，今天补上