|
发表于 2011-12-8 21:10
|
显示全部楼层
本楼为最佳答案
本帖最后由 zjdh 于 2011-12-8 21:16 编辑
以你的宏为基础修改如下:- Sub 字典去重复()
- Set D = CreateObject("Scripting.Dictionary")
- For H = 1 To 2
- 工作表 = "Sheet" & H
- Myr = Sheets(工作表).[A65536].End(xlUp).Row
- ARR = Sheets(工作表).Range("A1:D" & Myr)
- For I = LBound(ARR) To UBound(ARR)
- D(ARR(I, 1)) = ARR(I, 1) & "|" & ARR(I, 2) & "|" & ARR(I, 3) & "|" & ARR(I, 4)
- Next
- Next H
- K = D.keys
- ReDim BRR(0 To UBound(K), 1 To 4)
- For I = 0 To UBound(K)
- F = Split(D(K(I)), "|")
- For J = 0 To 3
- BRR(I, J + 1) = F(J)
- Next
- Next
- Sheets("Sheet3").Activate
- Sheets("Sheet3").Range("A:D").ClearContents
- Sheets("Sheet3").Cells(1, 1).Resize(D.Count, 4) = BRR
- Set D = Nothing
- End Sub
复制代码 |
|