|
楼主 |
发表于 2017-6-25 12:35
|
显示全部楼层
按照你的代码输了一遍
Sub lqxs()
Dim arr, i&, brr, j&, y&, n&, s, aa
Dim d, d1, k
Set d = create0bject("scripting.dictionary")
Set d1 = create0bject("scripting.dictionary")
Application.ScreenUpdating = False
Sheet2.Activate
[b5:z500].ClearContents
arr = Sheet1.[a1].CurrentRegion
brr = [a5].CurrentRegion
For i = 1 To UBound(brr)
For y = 1 To 33
d1(y) = ""
Next
aa = Split(brr(i, 1), ",")
For j = 0 To UBound(aa)
n = Val(aa(j))
For y = 2 To 7
d(arr(n, y)) = ""
Next
Next
k = d.key
For j = 0 To UBound(k)
If d1.exists(k(j)) Then d1.Remove k(j)
Next
Cells(i + 4, 2).Resize(1, d1.Count) = d1.keys
d.RemoveAll: d1removeall
Next
Application.ScreenUpdating = True
End Sub
运行宏不对啊 |
|