Excel按特定列筛选拆分多个工作簿脚本

"该资源提供了一个VBA宏代码，用于将Excel文件按某一列的数据（例如列A）筛选并分割成多个独立的工作簿。每个新工作簿将根据列A中的唯一值命名，并仅包含与该名称对应的所有行数据。用户需要根据自己的实际需求对代码进行适当调整以适应具体情境。" 在Excel中，有时我们需要根据数据的某个特定特征或分类将其分隔到不同的工作簿中，以便于管理和分析。这个VBA宏代码就实现了这样的功能。下面我们将详细解释代码的各个部分及其背后的逻辑。 首先，`Dim arr, sht As Worksheet, temp As String, i As Long, k, t, rng1 As Range` 定义了变量，其中 `arr` 用于存储数据范围的二维数组，`sht` 是工作表对象，`temp` 存储列A的单个单元格值，`i`、`k` 和 `t` 分别作为循环变量，`rng1` 作为处理的初始范围。 `Set rng1 = Range("A1:M1")` 设置范围的首行，`arr = Range("a2:m" & [a65536].End(xlUp).Row).Value` 获取从A2到M列最后一行的全部数据。 `Application.ScreenUpdating = False` 是为了提高处理速度，关闭屏幕更新。接下来，通过 `With CreateObject("Scripting.Dictionary")` 创建一个字典对象，用于存储唯一值和对应的数据范围。 `For i = 1 To UBound(arr)` 循环遍历数组。`temp = arr(i, 1)` 获取当前行的列A值，如果 `temp <> ""` 说明非空，然后检查字典中是否已存在该值。如果不存在，将该值作为键，对应的单元格范围作为值添加到字典中；如果存在，则将单元格范围合并到已有值。 `k = .keys` 和 `t = .Items` 分别获取字典的键（即列A的唯一值）和对应的值（即数据范围）。 `For i = 0 To .Count - 1` 循环遍历字典，检查每个工作表是否存在（防止重名），如果不存在则创建新工作表，命名为字典中的键。然后清除工作表数据，将初始范围（可能是列标题）复制到新工作表的第一行，最后将对应的数据范围复制到工作表的第二行以下。 `Application.ScreenUpdating = True` 在完成所有操作后恢复屏幕更新，`MsgBox ""` 提示用户操作完成。 通过运行这个宏，用户可以快速地根据列A的值将数据拆分为多个独立的工作簿，方便后续的分析和处理。但需要注意的是，用户需要根据实际情况修改代码中的列名和范围，以确保它适用于自己的Excel文件。