数据提取：从多行多列中快速获取不重复的姓名清单

Excel技巧

2023-11-13 04:03:34

数据提取难题：从多行多列中获取不重复的姓名清单

在处理大量数据时，经常需要从数据表中提取特定信息。一个常见的任务是从多行多列中提取不重复的姓名清单。手动执行此操作可能既耗时又容易出错。本文介绍了多种高效的方法来解决此难题。

方法 1：数据透视表

数据透视表是一种交互式工具，可帮助您汇总和分析数据。它也可以用来提取不重复的姓名清单。

步骤 1：插入数据透视表

按 Alt + D + P 快捷键调出“透视表向导”。
选择“多重合并计算数”。
将光标放在“将字段拖动到行”框中，然后选择包含姓名数据的列。
将光标放在“将字段拖动到值”框中，然后选择任何列（它不会影响输出）。

步骤 2：获取唯一值列表

右键单击数据透视表中的任何单元格，然后选择“显示值字段设置”。
在“值字段设置”对话框中，选择“值显示方式”选项卡。
选择“唯一值”。

数据透视表现在将仅显示不重复的姓名列表。您可以将此列表复制并粘贴到另一个位置。

方法 2：VBA

VBA（Visual Basic for Applications）是 Microsoft Office 中的一种宏语言。它可用于自动化任务，包括从数据中提取信息。

步骤 1：创建 VBA 宏

按 Alt + F11 快捷键打开 VBA 编辑器。
在“插入”菜单中，选择“模块”。
复制并粘贴以下代码到模块中：

Sub ExtractUniqueNames()
Dim ws As Worksheet
Dim rng As Range
Dim dict As Object
Dim arr() As Variant

Set ws = ActiveSheet
Set rng = ws.UsedRange
Set dict = CreateObject("Scripting.Dictionary")

For Each cell In rng.Cells
    If Not dict.Exists(cell.Value) Then
        dict.Add cell.Value, ""
    End If
Next

arr = dict.Keys
For i = 1 To UBound(arr)
    ws.Cells(i, 1).Value = arr(i)
Next
End Sub