关于剔除重复

pureshadow

这个问题曾经被无数个人问，解决的方法也是无数个。
我在这里摆个擂：

征剔除重复的方法。

要求：
1、技巧、函数、VBA不限，但请注明。
2、如果有可能就用图来说明，以方便初学者。

[ 本帖最后由 pureshadow 于 2008-3-24 16:36 编辑 ]

pureshadow

我先来一个——技巧法：高级筛选
位置在：数据-筛选-高级筛选
把“选择不重复记录”勾上。

jx1680000

jx1680000

jx1680000

'利用高级筛选代码就一句话
Sub 在B列中提取A列中的不重复项()
        Sheets("test").Range("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("B1"), unique:=True
End Sub



Sub 不重复记录()
    '这里的序列是没有标题的;此命令只用于test表,A列
    Application.ScreenUpdating = False
    '关闭屏幕转换
    With Sheets("test")
        .Range("A:A").Sort Key1:=Range("A1"), Order1:=xlDescending
        '对序列降序排序
        Set currentcell = Range("A1")
        Do While Not IsEmpty(currentcell)
            Set nextcell = currentcell.Offset(1, 0)
            If nextcell.Value = currentcell.Value Then
                currentcell.EntireRow.Delete
            End If
            Set currentcell = nextcell
        Loop
    End With
End Sub

tanhong

VBA删除重复项，只是不是很完善，得麻烦你多点几次，直到没有重复项哦，点出来的快乐，哈哈........
Sub 删除重复()
Dim Lrow As Long
Dim I As Integer
Dim myCount
   Lrow = Sheets("sheet1").[A65536].End(xlUp).Row
   For I = 2 To Lrow
      myCount = Application.CountIf(Sheet1.Range("A2:A" & Lrow), Sheets("sheet1").Cells(I, 1))
      If myCount > 1 Then
         Sheets("sheet1").Cells(I, 1).Delete
      End If
   Next I
End Sub




实例样本：

[ 本帖最后由 tanhong 于 2008-3-24 20:30 编辑 ]

tanhong

以上代码就当抛砖引玉，希望后面能出现更多精彩

huangqinyong

[:11]

pureshadow

事实上，数据透视表也不失为一个好办法，不仅可以一下子剔除重复，还可以列出每项重复了多少。

[ 本帖最后由 pureshadow 于 2008-3-24 23:40 编辑 ]

huangqinyong

原帖由 pureshadow 于 2008-3-24 23:35 发表
事实上，数据透视表也不失为一个好办法，不仅可以一下子剔除重复，还可以列出每项重复了多少。

有道理，用数据透视表操作简便快捷