|
发表于 2014-5-2 16:33
|
显示全部楼层
本楼为最佳答案
- Sub Macro2()
- Dim arr, brr, d, i&, j&, k&, l&, s&, s2&, zf$
- Set d = CreateObject("scripting.dictionary")
- arr = Sheets("1").Range("a1").Resize(126, 9)
- For j = 1 To 115 Step 57
- s = s + 1
- For i = 1 To UBound(arr)
- zf = Join(Application.Index(arr, i, 0), ",")
- d(zf) = d(zf) + 1
- Next
- brr = Sheets("2").Cells(j, 1).Resize(56, 9)
- For k = 1 To UBound(brr)
- zf = Join(Application.Index(brr, k, 0), ",")
- d(zf) = d(zf) + 1
- Next
- a = d.keys: b = d.items: s2 = 0
- For l = 0 To d.Count - 1
- If b(l) = 1 Then
- s2 = s2 + 1
- Sheets("3").Cells((s - 1) * 71 + s2, 1).Resize(1, 9) = Split(a(l), ",")
- End If
- Next
- d.RemoveAll
- Next
- [a:i] = [a:i].Value
- End Sub
复制代码 |
|