|
楼主 |
发表于 2019-12-10 14:52
|
显示全部楼层
你好,还想请教一下:要怎样才能将相同一天的结果一次性按照字典里的内容筛选B列,然后结果输出到C2.。。。我只会将11/12/2019 name的内容 输出到C2 那里,但是不知道怎样循环。
Sub duplicate()
Dim d As Object, d2 As Object, c, ar, a%, arr
Set d = CreateObject("scripting.dictionary")
Set d2 = CreateObject("scripting.dictionary")
Worksheets("dic").Activate
c = Range("a1").CurrentRegion ‘ 设置字典d 的内容再筛选
For i = 1 To UBound(c)
d(c(i, 1)) = ""
Next
Worksheets("Sheet1").Activate
ar = Range("a1").CurrentRegion
For a = 2 To UBound(ar)
If Left(Cells(a, 1), 10) = "11/12/2019" Then
arr = Split(ar(a, 2), ";")
For ca = 0 To UBound(arr)
If d.exists(arr(ca)) Then
d2(arr(ca)) = ""
End If
Next
End If
Next
Cells(2, 3).Resize(, d2.Count) = d2.keys
End Sub
|
|