如何从Excel中的列范围中动态提取唯一值列表?

网友投稿 256 2023-12-25

如何从excel中的列范围中动态提取唯一值列表?

对于定期更改值的列范围,无论更改如何,您始终需要从该范围中获取所有唯一值。 如何制作唯一值的动态列表? 本文将向您展示如何处理它。

使用公式从列范围动态提取唯一值列表

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

如下图所示,您需要从范围B2:B9中动态提取唯一值列表。 请尝试以下数组公式。

1.选择一个空白单元格,例如D2,在其中输入以下公式,然后按 按Ctrl + 转移 + 输入 同时键。 (B2:B9是您要提取唯一值的列数据,D1是您的公式所在的上方单元格)

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

2.继续选择单元格D2,然后向下拖动“填充手柄”以获取指定范围内的所有唯一值。

现在,将提取列范围B2:B9中的所有唯一值。 当此范围内的值更改时,唯一值列表将立即动态更改。

在excel中轻松选择并突出显示所有唯一值:

选择重复和唯一单元格 实用程序 Kutools for Excel

可以帮助您轻松选择并突出显示所有唯一值(包括第一个重复项)或仅出现一次的唯一值,以及您需要的重复值,如下图所示。

下载 Kutools for Excel 现在! (30-天免费试用)
使用VBA代码从列范围动态提取唯一值列表

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

1。 按 其他 + F11 同时打开 Microsoft Visual Basic应用程序 窗口。

2.在 Microsoft Visual Basic应用程序 窗口中,单击 插页 > 模块。 然后将以下VBA代码复制并粘贴到 模块 窗口。

如何从Excel中的列范围中动态提取唯一值列表?

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
Copy

备注:在代码中,D2是您将找到唯一值列表的单元格。 您可以根据需要进行更改。

3.回到工作表,单击 插页 > 形状 > 长方形。 看截图:

4.在工作表中绘制一个矩形,然后输入一些需要在其上显示的单词。 然后右键单击它并选择 分配宏 从右键单击菜单中。 在里面 分配宏 对话框中,选择 创建唯一列表 ,在 宏名 框,然后单击 OK 按钮。 看截图:

5.现在,单击矩形按钮, Kutools for Excel 弹出对话框,请选择包含您需要提取的唯一值的范围,然后单击 OK 按钮。

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

相关文章: 如何在Excel中创建动态每月日历? 如何基于Excel中的单元格值在单元格中动态插入图像或图片? 如何在Excel中创建到另一个工作表的动态超链接?

最佳办公生产力工具

将小时转化为分钟 Kutools for Excel!

准备好增强您的 Excel 任务了吗? 利用的力量 Kutools for Excel - 您终极的节省时间的工具。 简化复杂的任务并像专业人士一样浏览数据。 以闪电般的速度体验 Excel!

为什么需要 Kutools for Excel

🛠️  超过 300 项强大功能: Kutools 包含 300 多项高级功能,可简化您在 1500 多种场景中的工作。

📈  卓越的数据处理能力:合并单元格、删除重复项并执行高级数据转换 - 所有这些都不费吹灰之力!

⏱️  高效的批量操作:当你可以聪明地工作时,为什么还要付出额外的努力呢? 轻松批量导入、导出、组合和调整数据。

📊  可定制的图表和报告:访问各种附加图表并生成富有洞察力的报告。

🗄️  强大的导航窗格:通过强大的列管理器、工作表管理器和自定义收藏夹获得优势。

📝  七种类型的下拉列表:通过各种功能和类型的下拉列表使数据输入变得轻而易举。

🎓  用户友好:对于初学者来说轻而易举,对于专家来说是一个强大的工具。

立即下载,与 Excel 一起穿越时空!

阅读更多 免费下载... 采购... 
Office Tab 为 Office 带来选项卡式界面,让您的工作更轻松
在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。 每天将您的工作效率提高50%,并减少数百次鼠标单击!
阅读更多 免费下载... 采购... 

版权声明:本文内容由网络用户投稿,版权归原作者所有,本站不拥有其著作权,亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容,请联系我们jiasou666@gmail.com 处理,核实后本网站将在24小时内删除侵权内容。

上一篇:如何根据列中的单元格值复制行?
下一篇:如何轻松快速地将pdf表转换为Excel表?
相关文章