我懂你这种挫败感——手动调完坐标轴刻度，刚点完宏就打回原形，白忙活一场！别担心，这里有几个实用的解决方案，能让你手动设置的刻度在宏运行后稳稳保留：

这个思路是先把当前手动设置的刻度值存起来，等宏完成数据填充后，再把这些值“还原”回去。核心是判断用户是否手动修改过刻度（避免保存Excel自动生成的刻度值）。

Sub test1()
    Dim chartObj As ChartObject
    Dim xAxis As Axis, yAxis As Axis
    Dim xMin As Variant, xMax As Variant
    Dim yMin As Variant, yMax As Variant
    
    ' 替换成你的工作表名称和图表对象
    Set chartObj = ThisWorkbook.Worksheets("Sheet1").ChartObjects("Chart1")
    Set xAxis = chartObj.Chart.Axes(xlCategory) ' X轴
    Set yAxis = chartObj.Chart.Axes(xlValue) ' Y轴
    
    ' 仅保存手动设置的刻度值（跳过自动刻度的情况）
    If Not xAxis.MinimumScaleIsAuto Then xMin = xAxis.MinimumScale
    If Not xAxis.MaximumScaleIsAuto Then xMax = xAxis.MaximumScale
    If Not yAxis.MinimumScaleIsAuto Then yMin = yAxis.MinimumScale
    If Not yAxis.MaximumScaleIsAuto Then yMax = yAxis.MaximumScale
    
    ' ----------------------
    ' 这里放你原有的填充数据代码
    ' 比如：chartObj.Chart.SetSourceData Source:=Range("A1:B10")
    ' ----------------------
    
    ' 恢复手动设置的刻度
    If Not IsEmpty(xMin) Then xAxis.MinimumScale = xMin
    If Not IsEmpty(xMax) Then xAxis.MaximumScale = xMax
    If Not IsEmpty(yMin) Then yAxis.MinimumScale = yMin
    If Not IsEmpty(yMax) Then yAxis.MaximumScale = yMax
    
    ' 恢复自动刻度的状态（如果之前是自动就保持自动）
    xAxis.MinimumScaleIsAuto = IsEmpty(xMin)
    xAxis.MaximumScaleIsAuto = IsEmpty(xMax)
    yAxis.MinimumScaleIsAuto = IsEmpty(yMin)
    yAxis.MaximumScaleIsAuto = IsEmpty(yMax)
End Sub

很多时候刻度被重置，是因为宏里用了SetSourceData方法——这个方法会重新绑定图表的数据源，同时重置所有图表格式（包括坐标轴）。换成直接更新数据系列的X/Y值，就能避开这个问题。

Sub test1_UpdateSeriesOnly()
    Dim chartObj As ChartObject
    Dim targetSeries As Series
    
    ' 替换成你的工作表和图表
    Set chartObj = ThisWorkbook.Worksheets("Sheet1").ChartObjects("Chart1")
    
    ' 遍历图表中的数据系列，逐个更新值
    For Each targetSeries In chartObj.Chart.SeriesCollection
        ' 替换成你的X轴数据范围和Y轴数据范围
        targetSeries.XValues = ThisWorkbook.Worksheets("Sheet1").Range("A2:A10")
        targetSeries.Values = ThisWorkbook.Worksheets("Sheet1").Range("B2:B10")
    Next targetSeries
End Sub

这个方案是最优解，因为它只更新数据，完全不触动图表的格式设置，手动调的刻度、颜色、标签都会原封不动保留。

如果需要关闭工作簿后，下次打开运行宏还能保留之前的刻度设置，可以把刻度值存在工作表的隐藏单元格里，宏运行时读取这些值来设置坐标轴。

Sub test1_WithPersistentSettings()
    Dim chartObj As ChartObject
    Dim xAxis As Axis, yAxis As Axis
    Dim settingsWs As Worksheet
    ' 用隐藏单元格保存刻度值（可以把这些单元格设为隐藏）
    Dim xMinCell As Range, xMaxCell As Range, yMinCell As Range, yMaxCell As Range
    
    Set settingsWs = ThisWorkbook.Worksheets("Sheet1")
    Set xMinCell = settingsWs.Range("Z1") ' 隐藏列的单元格
    Set xMaxCell = settingsWs.Range("Z2")
    Set yMinCell = settingsWs.Range("Z3")
    Set yMaxCell = settingsWs.Range("Z4")
    
    Set chartObj = settingsWs.ChartObjects("Chart1")
    Set xAxis = chartObj.Chart.Axes(xlCategory)
    Set yAxis = chartObj.Chart.Axes(xlValue)
    
    ' 运行前保存当前手动设置的刻度
    If Not xAxis.MinimumScaleIsAuto Then xMinCell.Value = xAxis.MinimumScale
    If Not xAxis.MaximumScaleIsAuto Then xMaxCell.Value = xAxis.MaximumScale
    If Not yAxis.MinimumScaleIsAuto Then yMinCell.Value = yAxis.MinimumScale
    If Not yAxis.MaximumScaleIsAuto Then yMaxCell.Value = yAxis.MaximumScale
    
    ' ----------------------
    ' 原有的数据填充代码
    ' ----------------------
    
    ' 读取保存的刻度值并应用
    If Not IsEmpty(xMinCell.Value) Then
        xAxis.MinimumScale = xMinCell.Value
        xAxis.MinimumScaleIsAuto = False
    End If
    If Not IsEmpty(xMaxCell.Value) Then
        xAxis.MaximumScale = xMaxCell.Value
        xAxis.MaximumScaleIsAuto = False
    End If
    If Not IsEmpty(yMinCell.Value) Then
        yAxis.MinimumScale = yMinCell.Value
        yAxis.MinimumScaleIsAuto = False
    End If
    If Not IsEmpty(yMaxCell.Value) Then
        yAxis.MaximumScale = yMaxCell.Value
        yAxis.MaximumScaleIsAuto = False
    End If
End Sub

你可以根据自己的需求选择：优先选方案2（最省心），如果必须用SetSourceData就用方案1，需要长期保留设置就用方案3。

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