如何从Excel中的给定列快速创建唯一列表（删除重复项）？

假设您有一个包含重复名称的列表，现在您想从该给定的列中创建一个唯一名称的新列表，您如何在Excel中解决呢？ 现在，本教程介绍了一些技巧，可以帮助您从Give列快速创建唯一列表。

使用高级过滤器从列创建唯一列表

使用VBA从列创建唯一列表

使用Kutools for Excel从列中快速创建唯一列表

---

使用高级过滤器从列创建唯一列表

在Excel中，您可以应用“高级筛选器”功能从列表中筛选出唯一数据。

1。 点击 数据 > 高级。 看截图：

2。 在里面 进阶筛选 对话框，请执行以下操作：

（1）检查 复制到另一个位置 选项和 仅唯一记录 选项;

（2）选择重复项以 清单范围 文本框，然后选择一个单元格以将唯一列表放入 复制到 文本框。

3。 点击 OK。 现在，唯一列表已创建。 看截图：

---

使用VBA从列创建唯一列表

在Excel中，您还可以使用VBA代码从给定列创建唯一列表。

1。 按 Alt + F11键 显示 Microsoft Visual Basic应用程序 窗口，然后单击 插页 > 模块，然后在VBA下面复制并粘贴到新的“模块”窗口。

VBA：从给定列创建唯一列表。

Sub CreateUniqueList()
'Updateby20150519
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
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)
Set OutRng = OutRng.Range("A1")
InputRng.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=OutRng, Unique:=True
End Sub

2。 按 F5 键或 运行 按钮启用VBA代码，然后在弹出的对话框中选择重复的列表，然后单击 OK，然后选择一个单元格以放入结果。 查看屏幕截图：

3.现在，已创建具有唯一名称的列表。

---

使用Kutools for Excel从列中快速创建唯一列表

其实， 选择重复和唯一单元格 的特点 Kutools for Excel，您还可以根据给定的列快速创建唯一列表。

免费安装Kutools for Excel之后，可以使用“选择重复和唯一单元格”。

1.选择您要基于其创建唯一列表的列表（选择列标题是可选的），然后单击 库工具 > 选择 > 选择重复和唯一单元格。 看截图：

2.在弹出的对话框中，选中 所有唯一（包括第一个重复项） 选项下 第 部分。 看截图：

3。 点击 Ok，然后会弹出一个对话框，提醒您所选单元格的数量。 看截图：

4。 点击 OK，然后按 按Ctrl + C 复制所选单元格并选择一个单元格，然后按 按Ctrl + V 放置结果的键。

Tip： 如果要选择区分大小写的值，可以检查 区分大小写 在选项 选择重复和唯一单元格 对话。

选择重复和唯一单元格 功能，您只能选择包括第一个在内的重复项，只能选择除第一个以外的重复项，并选择除第一个以外的所有唯一值。 立即获取并简化您的Excel工作。