如何在Excel中使用宏根据源数据内容自动分类并将每个类别分别保存到不同的工作表（Sheet）中？

在Excel中使用宏自动分类并保存每个类别到单独的工作表，你可以按照以下步骤操作：

1. **打开VBA编辑器**:
- 点击"Developer"选项卡（如果默认不可见，需要在Excel设置中启用开发者工具），然后选择"Visual Basic"。

2. **创建新的模块**:
- 在VBA编辑器中，右键点击"插入"菜单下的"Module"，然后给新模块命名，如"ClassificationModule"。

3. **编写宏代码**:
使用以下代码作为开始，你需要根据你的数据源调整`FindValue`、`NewCategorySheetName`和`SaveData`部分：

Sub AutoClassifyAndSave()
    Dim ws As Worksheet
    Dim dataRange As Range
    Dim findValue As Variant
    Dim newRow As Long
    Dim newSheetName As String
    Dim lastRow As Long
    
    ' Set the source data range and category value to search for
    findValue = "你的类别关键词" ' 替换为你想识别的分类关键词
    dataRange = ThisWorkbook.Sheets("Sheet1").Range("A1:B100") ' 更改为你实际的数据范围

    ' Loop through each row in the data range
    For Each ws In ActiveWorkbook.Worksheets
        If ws.Name <> "Sheet1" Then Exit Sub ' Skip if not the main sheet
        newRow = 1
        lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
        
        ' Search for the category
        Do While newRow <= lastRow
            If ws.Cells(newRow, 1) = findValue Then
                ' Create a new sheet if it doesn't exist or move to the existing one
                If Not Application.WorksheetExists(newSheetName) Then
                    Set wsNew = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
                    wsNew.Name = newSheetName
                Else
                    ws = ThisWorkbook.Sheets(newSheetName)
                End If
                
                ' Copy relevant data into the new sheet starting from the found row
                ws.Range("A" & newRow, "B" & newRow).Copy Destination:=ws.Range("A1")
                
                ' Update the newSheetName for next iteration
                newRow = newRow + 1
            Else
                newRow = newRow + 1
            End If
        Loop
    Next ws
End Sub

4. **运行宏**:
- 确保你的数据已存在于指定的工作表上，并保存VBA宏代码。然后，关闭VBA编辑器，回到Excel，按下Alt+F8打开宏对话框，找到刚才创建的宏（例如"AutoClassifyAndSave"），双击运行即可。

5. **注意事项**:
- 这段代码假设类别关键词只出现在第一列。如果你的类别分布在其他列，你需要相应地修改查找区域。