嘿，这个需求我太懂了——手动复制粘贴真的超费时间！给你几个从简单到进阶的方案，完全能实现自动生成分类页面，不用再重复劳作：

一、Excel原生方案（零额外工具，快速上手） #

如果不想折腾其他软件，用Excel本身就能搞定：

• 第一步：先把你的数据按「Type」列排序，确保同类型的行都集中在一起（点击「数据」→「排序」，选Type列升序/降序都行）
• 第二步：选中Type列，点击「数据」→「分类汇总」，设置：
  • 分类字段：Type
  • 汇总方式：随便选一个（比如「计数」，只是用来生成分类标题，汇总结果不重要）
  • 勾选「每组数据分页」和「替换当前分类汇总」
• 第三步：现在表格会自动按Type分组，每组后面自动插入分页符，刚好一页对应一个分类
• 第四步：调整格式——把每个分类的标题行（比如显示「Fruit」的那行）改成大字体作为页面标题，把下面的条目整理成清晰的单行样式，直接打印就好，Excel会自动按分页符输出单独的页面

二、PowerPoint邮件合并（适配你之前的PPT使用习惯） #

既然你之前习惯用PPT做页面，这个方案最贴合你的操作流程：

• 第一步：先在Excel里把数据整理好，确保Type列是清晰的分类依据
• 第二步：打开PPT，新建一个模板页面：顶部放一个大文本框作为分类标题，下面留好放置条目的区域
• 第三步：点击「邮件」选项卡（如果没看到，在「文件」→「选项」→「自定义功能区」里勾选「邮件」），选择「选择收件人」→「使用现有列表」，选中你的Excel文件
• 第四步：关键操作——要实现按Type分组生成页面，先在Excel里给每个分类的第一条数据加一个辅助列（比如叫「新分类」），同一分类的第一条标记为「是」，其他为「否」；然后回到PPT的邮件合并，点击「规则」→「如果...那么...否则...」，设置当「新分类」为「是」时，插入分页符，同时把Type字段插入到大标题文本框，把每条数据的Code和Name插入到条目位置
• 第五步：点击「完成并合并」→「编辑单个文档」，PPT会自动生成每个分类单独的页面，完美匹配你的需求

三、VBA脚本全自动生成（适合数据频繁更新的场景） #

如果你的数据经常需要更新，写个简单的VBA宏能彻底解放双手：
打开Excel，按Alt+F11打开VBA编辑器，插入一个新模块，粘贴下面的代码：

Sub GenerateCategoryPages()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long, j As Long
    Dim currentType As String
    Dim printSheet As Worksheet
    
    ' 定义数据源工作表
    Set ws = ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row
    
    ' 先按Type列排序
    ws.Sort.SortFields.Clear
    ws.Sort.SortFields.Add Key:=Range("C2:C" & lastRow), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ws.Sort
        .SetRange Range("A1:C" & lastRow)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    ' 新建用于打印的工作表
    Set printSheet = ThisWorkbook.Sheets.Add(After:=ws)
    currentType = ws.Range("C2").Value
    ' 设置分类大标题
    printSheet.Range("A1").Value = currentType
    printSheet.Range("A1").Font.Size = 24
    j = 3 ' 条目起始行
    
    ' 遍历数据生成分类内容
    For i = 2 To lastRow
        If ws.Range("C" & i).Value <> currentType Then
            ' 插入分页符
            printSheet.HPageBreaks.Add Before:=printSheet.Range("A" & j)
            currentType = ws.Range("C" & i).Value
            ' 新分类标题
            printSheet.Range("A" & j).Value = currentType
            printSheet.Range("A" & j).Font.Size = 24
            j = j + 2
        End If
        ' 写入条目内容
        printSheet.Range("A" & j).Value = ws.Range("A" & i).Value & ", " & ws.Range("B" & i).Value
        j = j + 1
    Next i
End Sub

运行这个宏后，Excel会自动新建一个工作表，里面已经按Type分好类、插好分页符，直接打印这个工作表就行，以后数据更新了，重新运行宏就能生成最新的页面。

备注：内容来源于stack exchange，提问作者ExcelatWord