步骤 1：准备数据

Excel条件筛选下求不重复值

在Excel中处理数据时，经常需要从大量数据中提取唯一或不重复的值。条件筛选功能可帮助我们高效地完成此任务。本文将介绍使用条件筛选从Excel表中查找不重复值的分步指南。

首先，确保您的Excel工作表包含需要从中提取不重复值的列。数据应按特定列或行排序，以方便筛选。

选择包含数据的列。转到“开始”选项卡中的“排序和筛选”组，然后单击“筛选”图标。

在列标题中出现的下拉箭头旁边单击。选择“排序”，然后选择“自定义”。

在“自定义排序”对话框中，选择“按值”排序，然后选择“升序”或“降序”（取决于您的数据类型）。单击“确定”关闭对话框。

筛选后，重复值将相邻出现。您可以使用键盘上的方向键快速浏览它们。

要复制不重复的值，请选择第一行包含不重复值的单元格，然后将鼠标指针悬停在单元格的右下角，直到出现加号 (+)。

按住 Shift 键的同时拖动加号，向下选择所有不重复的值。松开 Shift 键后，右键单击所选内容并选择“复制”。

选择要粘贴不重复值的位置。右键单击并选择“选择性粘贴”。

在“选择性粘贴”对话框中，选择“仅值”选项，然后单击“确定”。不重复的值将粘贴到所选位置。

要自动查找不重复值，可以使用以下 VBA 代码：

Sub FindUniqueValues()
    Dim UniqueValues As Variant
    Dim LastRow As Integer
    Dim i As Integer

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

    For i = 1 To LastRow
        If Not WorksheetFunction.IsDuplicate(Range("A" & i), Range("A" & i:Range("A" & LastRow))) Then
            If UniqueValues = "" Then
                UniqueValues = Range("A" & i).Value
            Else
                UniqueValues = UniqueValues & "," & Range("A" & i).Value
            End If
        End If
    Next i

    MsgBox UniqueValues
End Sub

将此代码粘贴到 VBA 编辑器中（按 Alt + F11），然后运行宏。一个消息框将显示不重复值的列表。