vba,去重，汇总到一列

jianghui129

有两列数据，要求在把两列数据汇总在第三列，且要去除重复的。就是要呈现下面的效果。要求用vba写，求指教。

第一列	第二列	第三列
A	C	A
B	D	B
C	E	C
D	X	D
	V	E
		X
		V

xbl7966

Sub 去重()
Dim D As Object, rng As Range
Set D = CreateObject("scripting.dictionary")
For Each rng In Range("a2:b6")
If Len(rng.Value) > 0 Then D(rng.Value) = ""
Next
Range("c2").Resize(D.Count, 1) = Application.Transpose(D.keys)
End Sub

1578278106

1. Sub zidian()
   
2.     Dim rs%, d, ar, x%, y%
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     rs = Cells(Rows.Count, 2).End(3).Row
   
5.     ar = Range("a2:b" & rs)
   
6.     For x = 1 To UBound(ar)
   
7.         For y = 1 To UBound(ar, 2)
   
8.             If ar(x, y) <> "" Then
   
9.                 d(ar(x, y)) = ""
   
10.             End If
    
11.         Next
    
12.     Next
    
13.     [c2].Resize(d.Count) = WorksheetFunction.Transpose(d.keys)
    
14.     Set d = Nothing
    
15. End Sub

复制代码

friend911

xbl7966 发表于 2013-7-4 19:52
Sub 去重()
Dim D As Object, rng As Range
Set D = CreateObject("scripting.dictionary")

感谢老师，亲测可用，修改一下单元格范围即可，非常感谢