筛出不重复姓名

168216130B

用VBA把SHEET1中的不重复姓名筛到SHEET2中。

要求只用VBA完成，不用高级筛选和录宏

 

NlAWVBOM.rar (4.41 KB, 下载次数: 27)

2008-6-22 16:30 上传

点击文件名下载附件
[求助]筛出不重复姓名

cjch1969

[hide] 0ntLAm1k.rar (8.57 KB, 下载次数: 23)

2008-6-22 16:46 上传

点击文件名下载附件
[求助]筛出不重复姓名
[/hide
]

蓝桥玄霜

Sub sx()
Sheet2.[a:a].ClearContents
Sheet1.Range("a:a").AdvancedFilter 2, , Sheet2.[a1], 1
Sheet2.Activate
[a1] = "不重复姓名"
End Sub
其实用高级筛选是最快的。

yuhe0008

Dim rn As Range
Set d = CreateObject("scripting.dictionary")
For Each rn In [a2:a30]
If rn.Value <> "" And Not d.Exists(rn.Value) Then d.Add rn.Value, rn.Value
Next
Sheet2.[a2:a65536].Clear
Sheet2.Range("a2").Resize(d.Count) = Application.Transpose(d.Items)

洛水闲人

Sub 字典筛选不重复姓名()
    Set d = CreateObject("scripting.dictionary")
    Dim a As Integer, sin1 As Integer
        sin1 = Sheet1.Range("a65536").End(xlUp).Row
        For a = 1 To sin1 - 1
            stmp = Sheet1.Cells(a + 1, "a")
            If Not d.exists(stmp) Then
                d(stmp) = ""
            End If
        Next
        Sheet2.Range("a2").Resize(d.Count, 1) = Application.WorksheetFunction.Transpose(d.keys)
End Sub

开心萝卜惠州

VBA不会，高级筛选实现可以的，或使用数据透视表也可以