Excel 宏拆分表格：按部门将数据分割到多个工作表

{"title":"Excel 宏拆分表格：按部门将数据分割到多个工作表","description":"使用 VBA 宏将 Excel 表格按部门列进行拆分，自动生成多个工作表，每个工作表包含对应部门的数据。本文提供详细步骤和代码示例，并讲解如何根据实际情况修改宏代码。","keywords":"Excel 宏, VBA, 拆分表格, 按部门分割, 自动生成工作表, 数据处理, Excel 教程","content":"要通过宏将Excel按部门将一张表分成多个表，可以按照以下步骤进行操作：\n\n1. 打开Excel文件，进入Visual Basic for Applications (VBA) 编辑器。可以通过按下 "ALT + F11" 快捷键来打开 VBA 编辑器。\n\n2. 在 VBA 编辑器中，插入一个新的模块。可以通过右键点击 "VBAProject"，选择"插入"，再选择"模块"来插入新的模块。\n\n3. 在新的模块中编写宏代码。下面是一个示例宏代码，将表格按照 "部门" 列进行拆分：\n\nvba\nSub SplitByDepartment()\n Dim ws As Worksheet\n Dim lastRow As Long\n Dim department As String\n Dim newWs As Worksheet\n Dim newRow As Long\n \n ' 设置原始表格工作表\n Set ws = ThisWorkbook.Worksheets("Sheet1")\n \n ' 设置部门列的列号，这里假设部门列是第1列\n departmentColumn = 1\n \n ' 获取原始表格最后一行\n lastRow = ws.Cells(ws.Rows.Count, departmentColumn).End(xlUp).Row\n \n ' 循环遍历每一行数据\n For i = 2 To lastRow ' 这里假设第1行是表头，从第2行开始遍历\n ' 获取当前行的部门\n department = ws.Cells(i, departmentColumn).Value\n \n ' 检查是否已经创建了对应部门的工作表\n On Error Resume Next\n Set newWs = ThisWorkbook.Worksheets(department)\n On Error GoTo 0\n \n ' 如果没有对应部门的工作表，则创建新的工作表\n If newWs Is Nothing Then\n Set newWs = ThisWorkbook.Worksheets.Add(After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count))\n newWs.Name = department\n newRow = 1\n Else\n newRow = newWs.Cells(newWs.Rows.Count, departmentColumn).End(xlUp).Row + 1\n End If\n \n ' 将当前行数据复制到对应部门的工作表中\n ws.Rows(i).Copy Destination:=newWs.Rows(newRow)\n Next i\nEnd Sub\n\n\n4. 在宏代码中，根据实际情况修改以下内容：\n - "Sheet1"：原始表格所在的工作表名称。\n - departmentColumn = 1：部门列的列号，这里假设部门列是第1列。\n\n5. 关闭 VBA 编辑器。\n\n6. 在Excel中，按下 "ALT + F8" 快捷键，选择 "SplitByDepartment" 宏，并点击 "运行" 按钮。\n\n7. 宏将按照部门将原始表格分成多个表格，并按照部门名称命名工作表。每个工作表中包含对应部门的数据。