请教：用VBA怎样查重复数据？

打字比你快 · 发表于 2004-2-8 10:26

在表sheet1区域A1:E50里有数据，怎样查询A1:E50里的数据有重复的，当查询出来重复数据后把重复数据放到sheet2表的A1:E20单元格里。例如：有A5=四川，E10=123456789012345，B10=四川，F20=123456789012345，然后在sheet2里的A1里就显示"四川",在A2就显示"123456789012345"重复.用VBA怎样写代码.谢谢

菱角 · 发表于 2004-2-8 11:29

這樣好嗎?
Sub test()
Dim sr As Range, dr As Range, cl As Range
Dim bag As Collection
Dim i%
Set sr = Sheet1.Range("a1:e50")
Set dr = Sheet2.Range("a1:e20")
Set bag = New Collection
i = 1
For Each cl In sr
If cl <> "" And Application.WorksheetFunction.CountIf(sr, cl) > 1 Then
If Application.WorksheetFunction.CountIf(dr, cl) = 0 Then dr.Cells(i) = cl: i = i + 1
End If
Next
End Sub

打字比你快 · 发表于 2004-2-8 11:40

谢谢菱角，很好用就是这个意思。

		自动登录	找回密码
密码			免费注册

请教：用VBA怎样查重复数据？

最新热点 /1