VBA批量生成图表仅首个显示标题，其余无标题问题求助

我一眼就看出问题所在啦——你的代码里获取标题文本时没有指定具体工作表，导致切换到Chart工作表后，Range("A" & r)指向的是Chart工作表的A列，而那里根本没有你要的标题数据，后面的图表自然就没标题了！

问题根源 #

原代码中这一行：

ttl = Range("A" & r)

在第一次循环时，你还在Sheet9，所以能正确取到数据；但执行Sheets("Chart").Select后，后续循环里的Range默认指向Chart工作表，而该工作表没有对应的数据，ttl变成空值，图表标题就不显示了。

修正后的完整代码 #

我帮你调整了代码，不仅修复了标题问题，还去掉了容易出错的Select操作（VBA里尽量避免用Select，会降低效率且容易出问题）：

Sub loopChart()
    Dim mychart As Chart
    Dim myRange As Range
    Dim r As Integer
    Dim ttl As String
    Dim wsData As Worksheet
    Dim wsChart As Worksheet
    
    ' 提前定义工作表对象，避免反复切换和Select
    Set wsData = Worksheets("Sheet9")
    Set wsChart = Worksheets("Chart")
    
    r = 2
    While r <= 10
        ' 设置数据源（明确指向数据工作表）
        Set myRange = wsData.Range(wsData.Cells(r, 2), wsData.Cells(r + 1, 14))
        
        ' 创建图表，直接在图表工作表添加，无需Select
        Set mychart = wsChart.Shapes.AddChart.Chart
        
        With mychart
            ' 明确从数据工作表获取标题文本
            ttl = wsData.Range("A" & r).Value
            .ChartType = xlLineMarkers
            .SetSourceData Source:=myRange, PlotBy:=xlRows
            .SetElement (msoElementLegendRight)
            .HasTitle = True
            .ChartTitle.Text = ttl ' 用Text属性更直接，替代Formula
            
            ' 设置图表位置和尺寸（优化为垂直排列，避免重叠）
            .Parent.Top = 244 + ((r - 2) / 2) * 220
            .Parent.Left = 100
            .Parent.Height = 200
            .Parent.Width = 300
        End With
        
        r = r + 2
    Wend
End Sub

关键修改点 #

• 指定工作表获取标题：把ttl = Range("A" & r)改成ttl = wsData.Range("A" & r).Value，确保始终从数据工作表读取标题。
• 移除Select操作：直接通过工作表对象创建和操作图表，避免切换工作表导致的范围指向错误。
• 优化图表位置：新增的垂直排列逻辑让图表不会堆在一起，你可以根据实际需求调整间距数值。
• 用ChartTitle.Text替代Formula：设置标题文本用Text属性更直观，Formula一般用于绑定单元格公式的场景。

这样运行后，每个图表都会正确显示对应组的标题啦！

内容的提问来源于stack exchange，提问作者N. Painter