如何在Excel中动态提取列区域中的唯一值列表？

对于一个经常变化的列区域，无论它如何变化，您总是需要从该区域获取所有唯一值。如何创建一个动态的唯一值列表呢？本文将向您展示如何处理这个问题。

使用公式从列区域动态提取唯一值列表
使用VBA代码从列区域动态提取唯一值列表

使用公式从列区域动态提取唯一值列表

如下截图所示，您需要从B2:B9区域动态提取唯一值列表。请尝试以下数组公式。

1. 选择一个空白单元格（例如D2），输入以下公式并同时按下 Ctrl + Shift + Enter 键。（B2:B9 是您要提取唯一值的列数据，D1 是公式所在的上方单元格）

=IFERROR(INDEX($B$2:$B$9, MATCH(0,COUNTIF($D$1:D1, $B$2:$B$9), 0)),"")

2. 继续选中D2单元格，然后向下拖动填充柄以从指定区域获取所有唯一值。

现在，列区域B2:B9中的所有唯一值都已提取出来。当此区域中的值发生变化时，唯一值列表将立即动态更新。

使用VBA代码从列区域动态提取唯一值列表

您还可以使用以下VBA代码从列区域动态提取唯一值列表。

1. 同时按下 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，点击 插入 > 模块。然后将以下VBA代码复制并粘贴到模块窗口中。

VBA代码：从区域提取唯一值列表

Sub CreateUniqueList()
Dim xRng As Range
Dim xLastRow As Long
Dim xLastRow2 As Long
Dim I As Integer
On Error Resume Next
Set xRng = Application.InputBox("Please select range:", "Kutools for Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
xRng.Copy Range("D2")
xLastRow = xRng.Rows.Count + 1
ActiveSheet.Range("D2:D" & xLastRow).RemoveDuplicates Columns:=1, Header:=xlNo
xLastRow2 = Cells(Rows.Count, "B").End(xlUp).Row
For I = 1 To xLastRow2
  If ActiveSheet.Range("D2:D" & xLastRow2).Cells(I).Value = "" Then
     ActiveSheet.Range("D2:D" & xLastRow2).Cells(I).Delete
  End If
Next
End Sub

注意：在代码中，D2 是您要放置唯一值列表的单元格。您可以根据需要更改它。

3. 返回工作表，点击 插入 > 形状 > 矩形。参见截图：

4. 在工作表中绘制一个矩形，然后输入您需要显示的文字。接着右键单击它，并从右键菜单中选择 分配宏。在分配宏对话框中，在宏名称框中选择 CreateUniqueList，然后点击 确定 按钮。参见截图：

5. 现在单击矩形按钮，会弹出一个 Kutools for Excel 对话框，请选择包含您需要提取的唯一值的区域，然后点击 确定 按钮。

从现在开始，您可以重复上述步骤5以自动更新唯一值列表。

相关文章：

• 如何在Excel中创建动态月历？
• 如何根据单元格值在Excel中动态插入图片或图像？
• 如何在Excel中创建指向另一个工作表的动态超链接？