|
发表于 2022-12-3 11:06
|
显示全部楼层
本楼为最佳答案
Sub demo()
Set d = CreateObject("scripting.dictionary")
a = Sheet1.[a1].CurrentRegion
b = Sheet2.[a1].CurrentRegion
cnt = [a2]
Sheet3.UsedRange.Offset(, 1).ClearContents
For i = 1 To UBound(a)
d.RemoveAll: s = a(i, 1) & ","
For k = 2 To 7
d(a(i, k)) = 1: s = s & a(i, k) & ","
Next
n = 0
For j = 1 To UBound(b)
c = 0
For k = 2 To 7
If d(b(j, k)) Then c = c + 1
Next
If c = cnt Then s = s & "," & b(j, 1): n = n + 1
Next
If n Then [d1].Offset(r).Resize(, n + 8) = Split(s, ","): r = r + 1
Next
End Sub
祝順心,南無阿彌陀佛!
|
评分
-
查看全部评分
|