把表1里A列筛选不重得值到表2中A列

15968725770

把表1里A列筛选不重得值到表2中A列

dou10801

Dim Arr, xD, T$, i&, j%
Set D = CreateObject("Scripting.Dictionary")
Arr = Range("a1:a18")
For i = 2 To UBound(Arr)
    T = Arr(i, 1)
    If T <> "" Then
       D(T) = ""
    End If
Next
Worksheets("表2").Activate
[a2].Resize(D.Count, 1) = Application.Transpose(D.keys)
[a1].Resize(1, D.Count).Sort Key1:=[a1], Orientation:=xlLeftToRight

kszcs

dou10801 发表于 2023-2-18 09:04
Dim Arr, xD, T$, i&, j%
Set D = CreateObject("Scripting.Dictionary")
Arr = Range("a1:a18")

不能运行出结果。麻烦再看看

dou10801

kszcs 发表于 2023-3-24 08:52
不能运行出结果。麻烦再看看

1.vba按鈕要放在[表1].
2.或者把Arr = Range("a1:a18")  改成 Arr = Sheet1.Range("a1:a18")

kszcs

dou10801 发表于 2023-3-27 08:22
1.vba按鈕要放在[表1].
2.或者把Arr = Range("a1:a18")  改成 Arr = Sheet1.Range("a1:a18")

谢谢大师，修改了

0101q

Sub 去重()

    On Error Resume Next
    Dim Col As New Collection
    Dim rng As Range, arr
    Dim i As Integer
    For Each rng In Range("A1:A" & [a65536].End(xlUp).Row)
        If Trim(rng) <> "" Then
            Col.Add rng, Key:=CStr(rng)
        End If
    Next
    ReDim arr(2 To Col.Count)
    For i = 2 To Col.Count
        Sheet2.Range("A" & i) = Col(i)
    Next
End Sub