使用VBA循环基于模板创建图表：数据源切换问题

嘿，我看你已经搭好了循环的架子，但卡在了动态切换每行的数据源上——原来的代码里数据源是固定指向B2那一行的，循环起来自然所有图表都用同一份数据。我给你调整一下代码，彻底解决这个问题：

修改后的完整VBA代码 #

Sub CreateChartsPerRow()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim currentRow As Long
    Dim chartObj As Shape
    Dim dataRange As Range
    
    ' 替换成你实际操作的工作表名称
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取数据的最后一行（这里假设A列是包含数据的标识列，按需替换）
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 从第2行开始循环（假设第1行是表头，若表头在其他行请修改起始值）
    For currentRow = 2 To lastRow
        ' 动态定义当前行的数据源：A列到I列的当前整行
        Set dataRange = ws.Range(ws.Cells(currentRow, "A"), ws.Cells(currentRow, "I"))
        
        ' 添加簇状柱形图，同时把图表对象存到变量里（不用Select/Activate，更可靠）
        Set chartObj = ws.Shapes.AddChart2(201, xlColumnClustered)
        
        ' 设置图表位置，这里放在J列对应行的位置，避免重叠（可按需调整列号）
        chartObj.Top = ws.Cells(currentRow, "J").Top
        chartObj.Left = ws.Cells(currentRow, "J").Left
        chartObj.Name = "Chart_Row_" & currentRow ' 给图表命名，方便后续识别
        
        ' 应用你指定的图表模板
        chartObj.Chart.ApplyChartTemplate ("C:\Users\arboari\AppData\Roaming\Microsoft\Templates\Charts\Education.crtx")
        
        ' 关键：给当前图表设置对应行的数据源
        chartObj.Chart.SetSourceData Source:=dataRange
    Next currentRow
End Sub

关键调整说明 #

• 抛弃Select/Activate：原来的代码用了Select操作，这是VBA里最容易出问题的写法之一，直接用对象变量操作工作表、数据源、图表，稳定性拉满。
• 动态数据源：用currentRow变量定位当前循环的行，通过ws.Cells(currentRow, "A")和ws.Cells(currentRow, "I")精准锁定A到I列的当前行数据，循环到哪行就用哪行的数据源。
• 图表位置控制：把图表放在J列对应行的位置，这样每个图表都和自己的数据源行对齐，不会互相重叠，你可以把"J"改成其他列号来调整位置。
• 自动识别最后一行：通过lastRow自动获取数据的最后一行，不用手动改循环的结束值，数据更新后直接运行代码就行。

额外小提示 #

• 如果你的图表需要包含表头（比如图例用表头文字），可以把数据源范围改成包含表头行：Set dataRange = ws.Range(ws.Cells(1, "A"), ws.Cells(currentRow, "I"))，这样每个图表的数据源会从表头到当前行。
• 测试的时候可以先把循环范围改小，比如For currentRow = 2 To 5，确认没问题再跑全量数据，避免一下子生成太多图表卡顿。

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