嘿，作为VBA新手能搭出这样的代码框架已经超棒了！我来帮你补上修改数据行范围和轴标签的核心代码，顺便修正原代码里的小细节问题～

先修正原代码的小问题 #

原代码里用了YearI和YearF这两个未定义的变量，但你实际输入的是YearB（起始年）和YearE（结束年），首先得把变量名统一，避免运行报错。

核心代码补充与完整宏 #

下面是完善后的完整代码，我加了详细注释，方便你理解每一步的作用：

Sub AdjustChartDataRange()
    Dim YearB As Integer
    Dim YearE As Integer
    Dim startRow As Long
    Dim endRow As Long
    Dim sht As Worksheet
    Dim cht As ChartObject
    Dim srs As Series
    Dim originalRange As Range
    Dim newValuesRange As Range
    Dim newXLabelsRange As Range
    
    ' 获取用户输入的起始和结束年份
    YearB = InputBox("请输入起始年份")
    YearE = InputBox("请输入结束年份")
    
    ' 计算对应的数据行号（假设1994年对应第2行，第1行为表头；如果你的表头行不同，请修改+2的数值）
    startRow = (YearB - 1994) + 2
    endRow = (YearE - 1994) + 2
    
    Set sht = ActiveSheet
    
    ' 遍历当前工作表的所有图表
    With sht
        For Each cht In .ChartObjects
            ' 遍历图表中的每个数据系列
            For Each srs In cht.Chart.SeriesCollection
                ' 获取该系列当前的数据源范围
                Set originalRange = Range(srs.Formula)
                
                ' 构建新的数值范围：保持列不变，行改为startRow到endRow
                Set newValuesRange = .Range(.Cells(startRow, originalRange.Column), .Cells(endRow, originalRange.Column))
                
                ' 更新系列的数值范围
                srs.Values = newValuesRange
                
                ' 更新轴标签（X轴分类标签，假设标签在数值列的左侧一列；如果你的标签位置不同，请修改Column-1为对应列）
                Set newXLabelsRange = .Range(.Cells(startRow, originalRange.Column - 1), .Cells(endRow, originalRange.Column - 1))
                srs.XValues = newXLabelsRange
            Next srs
            
            ' 可选：重置图表轴的自动缩放，确保未使用的范围被隐藏
            With cht.Chart.Axes(xlCategory)
                .MinimumScaleIsAuto = True
                .MaximumScaleIsAuto = True
            End With
            With cht.Chart.Axes(xlValue)
                .MinimumScaleIsAuto = True
                .MaximumScaleIsAuto = True
            End With
        Next cht
    End With
    
    MsgBox "所有图表数据范围已调整完成！", vbInformation
End Sub

关键细节说明 #

• 行号计算：代码里假设1994年对应表格的第2行（第1行是表头），如果你的年份起始行不同，比如1994年在第3行，就把+2改成+3即可。
• 轴标签位置：代码默认轴标签在数值列的左侧一列（originalRange.Column - 1），如果你的标签在其他列（比如右侧），请修改这个偏移值。
• 自动轴缩放：添加了重置轴自动缩放的代码，确保调整数据范围后，图表轴会自动适配新的数据，隐藏掉未使用的范围。

使用注意事项 #

1. 运行宏之前，务必先备份你的Excel文件，避免意外数据丢失。
2. 测试时可以先找一个包含少量图表的工作表试跑，确认行号和标签列的设置正确。
3. 如果你的图表有特殊的数据源格式（比如合并单元格、非连续范围），可能需要根据实际情况微调代码。

内容的提问来源于stack exchange，提问作者José Costa