如何在Excel中批量生成格式一致、数据不同的图表？

方法1：利用名称管理器实现动态数据源（无需代码） #

• 打开「公式」选项卡，点击「名称管理器」，新建两个动态名称：
  • 名称：PieLabels，引用位置输入：=OFFSET($A$1,0,COLUMN()-2,COUNTA($A:$A),1)
    （说明：假设第一个饼图对应B列数据，COLUMN()-2用来计算列偏移量，若你的数据起始列不是B，自行调整这个数值）
  • 名称：PieValues，引用位置输入：=OFFSET($B$1,0,COLUMN()-2,COUNTA($B:$B),1)
• 插入第一个饼图，将数据源指定为上述两个动态名称
• 选中该饼图，直接横向复制粘贴到右侧列，每个复制出的饼图会自动根据所在列位置偏移数据源，匹配对应列的内容

方法2：VBA宏一键批量生成（适合大量图表） #

• 按Alt+F11打开VBA编辑器，插入新模块，粘贴以下代码：

Sub BatchCreatePieCharts()
    Dim ws As Worksheet
    Dim lastCol As Integer
    Dim i As Integer
    Dim chartObj As ChartObject
    
    Set ws = ActiveSheet
    lastCol = ws.Cells(1, Columns.Count).End(xlToLeft).Column '获取数据最后一列
    
    '假设标签在A列，数据从B列开始，可根据实际修改
    For i = 2 To lastCol
        '创建饼图，调整Left/Top/Width/Height可修改图表位置和大小
        Set chartObj = ws.ChartObjects.Add(Left:=100 + (i-2)*200, Top:=50, Width:=150, Height:=150)
        '设置数据源（A列为标签，第i列为对应数据）
        chartObj.Chart.SetSourceData Source:=ws.Range(ws.Cells(1, 1), ws.Cells(ws.Cells(Rows.Count, 1).End(xlUp).Row, i))
        chartObj.Chart.ChartType = xlPie
        '添加图表标题（用对应列的表头）
        chartObj.Chart.HasTitle = True
        chartObj.Chart.ChartTitle.Text = ws.Cells(1, i).Value
    Next i
End Sub

• 返回Excel，按Alt+F8选择BatchCreatePieCharts并运行，即可自动生成所有列对应的饼图

注意事项 #

• 方法1中，OFFSET函数的起始单元格（如$A$1）要和你的实际数据起始行匹配
• 方法2中，若数据起始列不是B，将代码里的i=2改为对应列号；图表位置和大小可通过调整Left、Top等参数自定义

内容的提问来源于stack exchange，提问作者Mert Mint