VBA宏无法为图表添加第二个数据系列（Cumulative Hours）求助

针对宏无法添加第二个数据系列（Cumulative Hours）的问题，以下是关键排查方向和修复建议：

1. 修复原有系列删除逻辑 #

硬执行两次FullSeriesCollection(1).Delete会在原有系列不足2个时报错，直接中断后续代码。改成循环删除所有系列，确保图表清空：

' 替换原有的两次Delete语句
Do While ActiveChart.SeriesCollection.Count > 0
    ActiveChart.SeriesCollection(1).Delete
Loop

2. 验证自定义函数Col_Letter的正确性 #

代码依赖Col_Letter将列号转为字母，若该函数未定义或逻辑错误，会导致数据范围引用失效。需确保模块中存在此正确实现：

Function Col_Letter(col As Long) As String
    Dim i As Long
    i = col
    Do While i > 0
        Col_Letter = Chr(((i - 1) Mod 26) + 65) & Col_Letter
        i = (i - 1) \ 26
    Loop
End Function

3. 确认图表类型支持双坐标轴 #

并非所有图表类型都支持次要坐标轴（如饼图、雷达图），如果Staffing Chart中的图表类型不兼容，设置.AxisGroup = xlSecondary会失败。请确保图表为柱形图、折线图、面积图等支持双轴的类型。

4. 避免Select/Activate提升稳定性 #

依赖Select/Activate的代码易因焦点变化出错，改为直接引用对象，同时用Range对象代替字符串拼接地址，减少错误：

Sub staffchartreset()
Dim fterow As Long
Dim choursrow As Long
Dim stafflastcol As Long
Dim lastcolletter As String
Dim s1 As Series
Dim s2 As Series
Dim wsPlan As Worksheet
Dim wsChart As Worksheet
Dim cht As Chart

    Set wsPlan = ThisWorkbook.Sheets("Staffing Plan")
    Set wsChart = ThisWorkbook.Sheets("Staffing Chart")
    Set cht = wsChart.ChartObjects(1).Chart ' 若图表不是第一个，需调整索引或名称

    stafflastcol = wsPlan.Cells(14, Columns.Count).End(xlToLeft).Column
    fterow = wsPlan.Range("F:F").Find(What:="FTE", LookIn:=xlValues).Row
    choursrow = fterow + 1
    lastcolletter = Col_Letter(stafflastcol)
        
    ' 清空所有原有系列
    Do While cht.SeriesCollection.Count > 0
        cht.SeriesCollection(1).Delete
    Loop
    
    Set s1 = cht.SeriesCollection.NewSeries
    Set s2 = cht.SeriesCollection.NewSeries
        With s1
            .Name = "FTE"
            .AxisGroup = xlPrimary
            .Values = wsPlan.Range(wsPlan.Cells(fterow, 11), wsPlan.Cells(fterow, stafflastcol))
            .XValues = wsPlan.Range(wsPlan.Cells(14, 11), wsPlan.Cells(14, stafflastcol))
        End With
        
        With s2
            .Name = "Cumulative Hours"
            .AxisGroup = xlSecondary
            .Values = wsPlan.Range(wsPlan.Cells(choursrow, 11), wsPlan.Cells(choursrow, stafflastcol))
            .XValues = wsPlan.Range(wsPlan.Cells(14, 11), wsPlan.Cells(14, stafflastcol))
        End With
   
End Sub

5. 排查数据范围有效性 #

添加调试输出确认关键变量值，判断数据范围是否正确：

' 在设置lastcolletter后添加
Debug.Print "FTE行号: " & fterow
Debug.Print "累计工时行号: " & choursrow
Debug.Print "最后列号: " & stafflastcol
Debug.Print "最后列字母: " & lastcolletter

运行宏后打开VBA编辑器的立即窗口（Ctrl+G），检查变量是否符合预期（比如fterow不能为0，说明未找到"FTE"文本）。

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