如何在excel内根据多列去除重复项

工具/原料：Microsoft Excel 2010。

1、找到电脑里的excel，打开excel。

2、把需要处理的列复制到一个新的工作表。

3、在菜单栏中选中数据栏。

4、选中需要删除重复项的列。

5、点击数据栏下的删除重复项。

5、在d出的删除重复项对话框中，选择需要处理的列后，点击确定。

6、这时列已经变成没有重复项的列了。

数据处理：统计（excel 工具实现）

知识点：excel 去重筛选

1.【数据】-->【高级筛选】-->选择“将筛选结果复制到其他位置”，列表区域选中D列，指定复制到

的位置，勾选“选择不重复记录”。

2.注意点： 一定需要从行首开始执行，若所选表格第一行上方有其他内容，比如空白行，或者其他内容，则不能复制成功。 这个时候需要将要处理的表格上方的行删除。

个人认为, 需要使用VBA解决此问题.

利用Dictionary对象, 将范围内的数据逐个存入Dictionary, 并加入判断是否重复, 提取不重复值.

如图, 现有以下三列数据, 提取标题以下内容的不重复值

代码如下:

Sub UniqueList()

    Dim DataRow As Integer, DataColumn As Long

    Dim Data_Dic As Object

    Dim c, iVal, iKey, i As Long

    

    DataRow = Range("A" & Rows.Count).End(xlUp).Row

    DataColumn = Cells(1, Columns.Count).End(xlToLeft).Column

    Set Data_Dic = CreateObject("Scripting.Dictionary")

    iVal = Range("A2", Cells(DataRow, DataColumn)).Value

    For Each c In iVal

        If Not c = Empty Then

            If Not Data_Dic.exists(c) Then

                Data_Dic.Add c, ""

            End If

        End If

    Next

    iKey = Data_Dic.keys

    For i = 0 To Data_Dic.Count - 1

        Cells(i + 2, DataColumn + 1) = iKey(i)

    Next

End Sub

步骤: Alt+F11打开VBE窗口, 插入模块, 复制粘贴以下代码, 确认参数设置正确无误, F5运行. 可以得到如下结果.

---