Excel如何通过VBA/宏自动为各团队批量生成月度折线图

这个需求完全可以通过Excel宏（VBA）实现，一次配置完成后，后续月度更新数据只需要一键运行，就能自动生成所有团队的独立折线图，不需要逐团队手动选数据做图。

前置准备 #

• 确保你的数据按照样例结构存放：第一行为月份表头、第一列为团队名称，数据区域从A1单元格开始，提前修正单元格内的异常数值（比如样例中TeamA Apr-22列的49 83属于输入错误，要改成正确数值，否则图表识别会出错）
• 打开你的数据文件，按Alt+F11调出VBA编辑器，在左侧工程栏右键点击当前工作簿名称，选择「插入」-「模块」，把下方可直接运行的代码粘贴到弹出的代码编辑窗口中。

可直接使用的宏代码 #

Sub 批量生成团队月度折线图()
    Dim ws As Worksheet
    Dim lastRow As Long, lastCol As Long
    Dim i As Long, chartTop As Long
    Dim cht As ChartObject
    
    ' 若你的数据表名不是Sheet1，把下方引号内的内容改成实际表名即可
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 自动清除之前运行宏生成的旧图表，避免重复堆叠
    For Each cht In ws.ChartObjects
        If cht.Name Like "团队指标图_*" Then cht.Delete
    Next cht
    
    ' 自动识别数据范围：自动获取最后一行团队、最后一列月份，不需要手动改行列数
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
    
    ' 配置第一个图表的顶部起始位置，后续图表自动向下排列
    chartTop = 100
    
    ' 逐行遍历所有团队生成独立折线图
    For i = 2 To lastRow
        ' 新建折线图，固定大小，统一放在数据区域右侧
        Set cht = ws.ChartObjects.Add( _
            Left:=ws.Cells(1, lastCol + 2).Left, _
            Top:=chartTop, _
            Width:=450, _
            Height:=250)
        cht.Name = "团队指标图_" & ws.Cells(i, 1).Value
        
        ' 配置图表内容
        With cht.Chart
            .ChartType = xlLine
            ' 绑定数据源：X轴取第一行的月份，Y轴取当前团队的所有月度指标
            .SetSourceData Source:=ws.Range(ws.Cells(i, 1), ws.Cells(i, lastCol))
            .SeriesCollection(1).XValues = ws.Range(ws.Cells(1, 2), ws.Cells(1, lastCol))
            ' 配置图表、坐标轴标题
            .HasTitle = True
            .ChartTitle.Text = ws.Cells(i, 1).Value & " 月度进度趋势"
            .Axes(xlCategory, xlPrimary).HasTitle = True
            .Axes(xlCategory, xlPrimary).AxisTitle.Text = "月份"
            .Axes(xlValue, xlPrimary).HasTitle = True
            .Axes(xlValue, xlPrimary).AxisTitle.Text = "指标值"
        End With
        
        ' 下一个图表位置向下偏移，避免重叠
        chartTop = chartTop + 280
    Next i
    
    MsgBox "所有团队折线图已生成完成！", vbInformation
End Sub

使用与更新说明 #

• 粘贴代码后直接按F5即可运行，宏会自动识别所有团队和已录入的月份数据，在数据区域右侧批量生成排列整齐的独立折线图。
• 后续月度更新数据时，只要在现有数据最右侧追加新的月份列、填入各团队对应指标，重新运行该宏即可，旧图表会自动替换为包含最新数据的版本，不需要手动调整图表数据源。
• 文件需要保存为.xlsm（启用宏的工作簿）格式，否则宏代码会丢失，下次打开无法使用。
• 如果运行时提示宏被禁用，在Excel信任中心的宏设置里选择启用宏，或者打开文件时在顶部安全警告栏选择「启用此内容」即可。

内容的提问来源于stack exchange，提问作者Clinical Info