[已解决]怎么去掉重复数据

mmc998 · 发表于 2014-11-1 19:41

本帖最后由 mmc998 于 2014-11-1 20:46 编辑

Book11.rar (168.8 KB, 下载次数: 32)

qh8600 · 发表于 2014-11-1 19:47

是每一行筛选，还是全部筛选
列数固定吗

mmc998 · 发表于 2014-11-1 19:51

qh8600 发表于 2014-11-1 19:47
是每一行筛选，还是全部筛选
列数固定吗

每一行，列行不固定

qh8600 · 发表于 2014-11-1 20:34

mmc998 发表于 2014-11-1 19:51
每一行，列行不固定

Sub demo()
Dim d As Object, ar, br(), i As Long, j As Long, x As Long, m As Long, n As Long
Set d = CreateObject("Scripting.Dictionary")
m = Cells(Rows.Count, 1).End(3).Row
n = Cells(3, Columns.Count).End(1).Column
ar = Range(Cells(3, 1), Cells(m, n))
ReDim br(1 To UBound(ar), 1 To UBound(ar, 2))
For i = 1 To UBound(ar)
For j = 1 To UBound(ar, 2)
If Not d.Exists(ar(i, j)) Then
d(ar(i, j)) = ""
End If
Next
a = d.keys
For x = 1 To d.Count
br(i, x) = a(x - 1)
Next
d.RemoveAll
Next
Range("a3").Resize(m, n).ClearContents
Range("a3").Resize(i, n) = br
End Sub

复制代码

附件楼下

qh8600 · 发表于 2014-11-1 20:34

mmc998 发表于 2014-11-1 19:51
每一行，列行不固定

Book11.rar (311.82 KB, 下载次数: 35)

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