在Excel VBA中，基于指定列的值将数据集拆分成不同的工作表是一种常见的任务，尤其是在处理分类数据时。以下是一个VBA示例脚本，它会根据指定列的值将数据拆分到新的工作表，并以该列的值命名这些工作表。

示例VBA脚本Sub SplitDataIntoWorksheets() Dim wsSource As Worksheet Dim wsDest As Worksheet Dim rData As Range Dim rCell As Range Dim wsCollection As Collection Dim i As Integer Dim strName As String ' 设置源数据工作表 Set wsSource = ThisWorkbook.Worksheets("SourceData") '更改为你的源数据工作表名 ' 设置源数据范围 Set rData = wsSource.Range("A2:A100") ' 更改为你的数据范围，假设拆分依据在第A列 ' 初始化集合，用于存储不同的工作表 Set wsCollection = New Collection On Error Resume Next ' 忽略错误，主要用于处理重复添加工作表的情况 ' 遍历每个单元格 For Each rCell In rData strName = rCell.Value ' 获取拆分依据的值 If strName <> "" Then ' 如果工作表不存在，则创建新的工作表 Set wsDest = Nothing Set wsDest = ThisWorkbook.Worksheets(strName) If wsDest Is Nothing Then Set wsDest = ThisWorkbook.Worksheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)) wsDest.Name = strName wsSource.Rows(1).Copy Destination:=wsDest.Rows(1) ' 复制标题行 End If ' 将行复制到目标工作表 wsSource.Rows(rCell.Row).Copy Destination:=wsDest.Rows(wsDest.Cells(wsDest.Rows.Count, 1).End(xlUp).Row + 1) wsCollection.Add wsDest, strName End If Next rCell On Error GoTo 0 ' 恢复默认错误处理 ' 提示完成 MsgBox wsCollection.Count & " worksheets have been created based on column A.", vbInformationEnd Sub脚本说明：设置源数据：指定包含数据的源工作表和数据范围。遍历数据：遍历指定列中的每个单元格。创建/获取工作表：根据单元格的值创建新工作表，如果工作表已存在，则获取对应的工作表。复制数据：将数据从源工作表复制到相应的目标工作表。错误处理：使用On Error Resume Next忽略重复添加工作表的错误。使用方法：打开Excel，按Alt + F11打开VBA编辑器。在项目资源管理器中，右键点击“VBAProject(你的工作簿名字)”，选择“插入” -> “模块”。将上述代码粘贴到新模块窗口中。调整Set wsSource和Set rData以匹配你的源数据工作表名称和数据范围。运行宏（按F5或在菜单中选择“运行”->“运行子程序/用户定义函数”）。

运行后，每个独特的值都会有一个新的工作表，工作表名称为该值，且包含所有对应的数据行。