如何使用VBA按某列汇总拆分工作表

你可以按照以下步骤使用VBA按某列汇总拆分工作表：

1. 打开你想要拆分的工作表。
2. 在工作表上方的菜单栏中选择“开发人员”选项卡。如果你没有看到该选项卡，则需要启用它。可以通过下列步骤：文件->选项->自定义功能区->勾选“开发人员”选项卡。
3. 点击“Visual Basic”按钮，打开Visual Basic编辑器。
4. 在编辑器中，依次展开“项目-VBAProject(VBA项目)”、“Microsoft Excel 对象”、“Sheet1(Sheet1)”，双击“Sheet1(Sheet1)”。
5. 在工作表的代码窗口中输入以下代码：

Sub SplitData()
Dim lastRow As Long
Dim currentRow As Long
Dim i As Long
Dim currentName As String
Dim ws As Worksheet
Dim newWs As Worksheet

Set ws = ThisWorkbook.Sheets("Sheet1")
lastRow = ws.Range("A" & Rows.Count).End(xlUp).Row
currentRow = 2

For i = 2 To lastRow
    If ws.Range("A" & i).Value <> currentName Then
        currentName = ws.Range("A" & i).Value
        
        Set newWs = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
        newWs.Name = currentName
        
        ws.Range("A1:D1").Copy newWs.Range("A1")
        currentRow = 2
    End If
    
    ws.Range("A" & i & ":D" & i).Copy newWs.Range("A" & currentRow)
    currentRow = currentRow + 1
Next i
End Sub

6. 保存并关闭Visual Basic编辑器。
7. 回到工作表并点击“开发人员”选项卡上的“宏”按钮。
8. 在弹出的对话框中选择“SplitData”宏，并点击“运行”。

这将按列A中的值拆分工作表，并将每个唯一值的数据放入一个新的工作表中。每个新工作表的名称将是该值。请注意，此代码假设您的数据以列A开始，并且您的数据没有标题行。如果您的数据的列不同，请在代码中进行调整。