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

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

使用高级筛选从列中创建唯一列表

使用VBA从列中创建唯一列表

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

使用高级筛选从列中创建唯一列表

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

1. 单击 数据 > 高级。参见截图：

2. 在“高级筛选”对话框中，执行以下操作：

(1) 勾选“复制到其他位置”选项和“ 仅唯一记录”选项；

(2) 选择重复项列至“列表区域”文本框，并选择一个单元格以将唯一列表放入“ 复制到”文本框。

3. 单击 确定。现在唯一列表已创建。参见截图：

使用VBA从列中创建唯一列表

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

1. 按 Alt + F11 显示 Microsoft Visual Basic for Applications 窗口，然后单击 插入 > 模块，接着将以下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代码，在弹出的对话框中选择带有重复项的列表并单击 确定，然后选择一个单元格以放置结果。参见截图：

   >>>   

3. 现在，已创建了一个包含唯一名称的列表。

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

实际上，通过 Kutools for Excel 的 选择重复项与唯一单元格 功能，您也可以快速从给定列中创建唯一列表。

1. 选择要基于其创建唯一列表的列表（可选择列标题），然后单击 Kutools > 选择 > 选择重复项与唯一单元格。参见截图：

2. 在弹出的对话框中，勾选 规则 部分下的 唯一值(包括第一个重复值) 选项。参见截图：

3. 单击 确定，然后会弹出一个对话框提醒您所选单元格的数量。参见截图：

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

提示：如果您希望区分大小写地选择值，可以在 选择重复项与唯一单元格对话框中勾选区分大小写选项。

通过 选择重复项与唯一单元格 功能，您可以仅选择包括第一个在内的重复项、仅选择除第一个之外的重复项，以及选择除第一个之外的所有唯一值。