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

网友投稿 816 2023-12-27

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

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

使用数组公式从多个列中提取唯一值 使用数据透视表从多个列中提取唯一值 使用VBA代码从多个列中提取唯一值 从一个单一的列中提取具有独特功能的独特值 使用数组公式从多个列中提取唯一值

这是一个数组公式，也可以帮助您从多个列中提取唯一值。

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"),)&""

备注：在以上公式中， A2：C9 表示要提取唯一值的单元格范围， E1：E1 是您要放置结果的列的第一个单元格， $ 2：$ 9 这些行包含要使用的单元格，并且 $ A：$ C 表示列包含您要使用的单元格。请更改为您自己的。

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

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

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

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

Copy

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

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

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

从一个单一的列中提取具有独特功能的独特值

有时，您需要从单个列中提取唯一值，上述方法将无济于事，在这里，我可以推荐一个有用的工具-Kutools for Excel，其 提取具有唯一值的单元格（包括第一个重复项） 实用程序，您可以快速提取唯一值。

请注意：申请这个 提取具有唯一值的单元格（包括第一个重复项），首先，您应该下载 Kutools for Excel，然后快速轻松地应用该功能。