如何从Excel中的多个列中提取唯一值？

假设您有多个具有多个值的列，则某些值在同一列或不同列中重复。 现在，您只想查找任一列中存在的值一次。 是否有任何快速技巧可以从Excel中的多个列中提取唯一值？

• 使用公式从多列中提取唯一值
  • 所有 Excel 版本的数组公式
  • Excel 365 的公式
• 使用 Kutools AI Aide 从多列中提取唯一值
• 使用数据透视表从多个列中提取唯一值
• 使用VBA代码从多个列中提取唯一值

使用公式从多列中提取唯一值

本节将介绍两个公式：一个使用适用于所有 Excel 版本的数组公式，另一个使用专门针对 Excel 365 的动态数组公式。

使用适用于所有 Excel 版本的数组公式从多列中提取唯一值

对于使用任何版本的 Excel 的用户来说，数组公式可以成为跨多列提取唯一值的强大工具。您可以这样做：

1。 假设您的值在范围内 A2：C9，请在单元格E2中输入以下公式：

=INDIRECT(TEXT(MIN(IF(($A$2:$C$9<>"")*(COUNTIF($E$1:E1,$A$2:$C$9)=0),ROW($2:$9)*100+COLUMN($A:$C),7^8)),"R0C00"),)&""

2。 然后按 Shift + Ctrl + 输入 键，然后拖动填充手柄以提取唯一值，直到出现空白单元格。 看截图：

使用 Excel 365 公式从多列中提取唯一值

Excel 365 支持动态数组，使得从多列中提取唯一值变得更加容易：

请将以下公式输入或复制到要放置结果的空白单元格中，然后单击 输入 一次获取所有唯一值的关键。看截图：

=UNIQUE(TOCOL(A2:C9,1))

使用 Kutools AI Aide 从多列中提取唯一值

释放的力量 Kutools 人工智能助手 从 Excel 中的多个列中无缝提取唯一值。只需点击几下，这个智能工具就会筛选您的数据，识别并列出任何选定范围内的唯一条目。忘记复杂公式或VBA代码的麻烦；拥抱效率 Kutools 人工智能助手 并将您的 Excel 工作流程转变为更高效且无错误的体验。

安装 Kutools for Excel 后，请单击 Kutools人工智能 > 人工智能助手 打开 Kutools 人工智能助手 窗格：

1. 在聊天框中输入您的要求，然后单击 提交 按钮或按下 输入 发送问题的键；
   “从范围 A2:C9 中提取唯一值，忽略空白单元格，并将结果从 E2 开始：”
2. 分析完后点击 执行 按钮运行。 Kutools AI Aide 将使用 AI 处理您的请求，并直接在 Excel 中返​​回指定单元格中的结果。

使用数据透视表从多个列中提取唯一值

如果您熟悉数据透视表，则可以按照以下步骤轻松地从多个列中提取唯一值：

1。 首先，请在数据左侧插入一个新的空白列，在本例中，我将在原始数据旁边插入A列。

2。 单击数据中的一个单元格，然后按 Alt + D 键，然后按 P 立即打开钥匙 数据透视表和数据透视图向导，选择 多种合并范围 在向导step1中，查看屏幕截图：

3。 然后点击 下一页 按钮，检查 为我创建一个页面字段 向导步骤2中的选项，请参见屏幕截图：

4。 继续点击 下一页 按钮，单击以选择包括左侧新的单元格列的数据范围，然后单击 添加 按钮将数据范围添加到 所有范围 列表框，请参见屏幕截图：

5。 选择数据范围后，继续单击 下一页，在向导的第3步中，根据需要选择要放置数据透视表报表的位置。

6. 最后点击 完成 以完成向导，并在当前工作表中创建了一个数据透视表，然后取消选中 选择要添加到报告中的字段 部分，请参见屏幕截图：

7. 然后检查现场 值 或将值拖到 行 标签，现在您将从多个列中获得唯一值，如下所示：

使用VBA代码从多个列中提取唯一值

使用以下VBA代码，您还可以从多个列中提取唯一值。

1。 按住 ALT + F11 键，然后打开 Microsoft Visual Basic for Applications窗口.

2。 点击 插页 > 模块，然后将以下代码粘贴到“模块窗口”中。

VBA：从多个列中提取唯一值

Sub Uniquedata()
'Updateby Extendoffice
Dim rng As Range
Dim InputRng As Range, OutRng As Range
Set dt = CreateObject("Scripting.Dictionary")
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
For Each rng In InputRng
    If rng.Value <> "" Then
        dt(rng.Value) = ""
    End If
Next
OutRng.Range("A1").Resize(dt.Count) = Application.WorksheetFunction.Transpose(dt.Keys)
End Sub

3。 然后按 F5 运行此代码，将弹出一个提示框，提醒您选择要使用的数据范围。 看截图：

4。 然后点击 OK，将出现另一个提示框，让您选择放置结果的位置，请参见屏幕截图：

5. 点击 OK 关闭此对话框，并立即提取所有唯一值。

更多相关文章：