Excel图表VBA开发：如何仅在无趋势线时添加趋势线？代码排查

原代码错误点 #

• 语法逻辑错误：第三个ElseIf里的.SeriesCollection(serReihe.Name, "value_B")完全不符合语法，SeriesCollection只能接收单个索引值或系列名称作为参数，不能传两个参数，这行代码会直接报错。
• 目标系列定位错误：添加趋势线时硬编码.SeriesCollection(1)，如果图表系列顺序变化，会导致趋势线加错系列；而且逻辑上没有对应到你要添加趋势线的目标系列。
• 分支逻辑混乱：第三个ElseIf放在最后，只有遍历到既不是value_A也不是value_B的系列时才会触发，但你的需求是给特定目标系列加趋势线，这个分支逻辑完全错位。
• 硬编码索引风险：设置AxisGroup时用.SeriesCollection(2)，如果value_B不是第二个系列，这行代码会生效到错误的系列上，应该用当前遍历的serReihe对象。

修正后的代码（实现仅当目标系列无趋势线时添加） #

Sub FormatChart_A()
    Dim serReihe As Series
    Dim targetSeries As Series ' 指定要添加趋势线的目标系列
    
    With ActiveSheet.ChartObjects("test_A").Chart
        For Each serReihe In .SeriesCollection
            ' 处理value_A系列
            If InStr(serReihe.Name, "value_A") > 0 Then
                serReihe.ChartType = 65 ' xlLineMarkers
                serReihe.Border.Color = RGB(165, 79, 255)
                Set targetSeries = serReihe ' 标记为趋势线目标系列
            ' 处理value_B系列
            ElseIf InStr(serReihe.Name, "value_B") > 0 Then
                serReihe.ChartType = 65
                serReihe.Border.Color = RGB(79, 225, 235)
                serReihe.AxisGroup = 2 ' 直接用当前对象，避免硬编码索引
            End If
        Next serReihe
        
        ' 针对目标系列判断并添加趋势线
        If Not targetSeries Is Nothing Then
            If targetSeries.Trendlines.Count = 0 Then
                targetSeries.Trendlines.Add Type:=xlLinear, Name:="Trend Flächenleistung"
            End If
        End If
    End With
End Sub

代码说明 #

1. 先遍历所有系列，分别处理value_A和value_B的格式，同时把需要加趋势线的目标系列（示例为value_A，可根据需求修改为value_B）赋值给targetSeries对象。
2. 遍历结束后，先判断targetSeries是否存在，再检查它的Trendlines.Count，如果为0则添加指定的线性趋势线。
3. 去掉了硬编码的系列索引，全部用遍历到的serReihe对象操作，避免系列顺序变化导致的错误。

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