我一眼就看出问题所在了——你获取最后一行的方法和X变量的计算逻辑里藏着两个小坑，导致切换数据集后坐标轴最大值没更新。

问题根源分析 #

• xlCellTypeLastCell的缓存陷阱：你用StartCell.SpecialCells(xlCellTypeLastCell).Row获取最后一行，但这个方法依赖Excel的内部缓存，哪怕你删除了后面的行，它还是会记住之前的最后单元格位置。比如你之前有2312行，后来改成609行，Excel缓存还没更新，LastRow依然会返回2312，那X自然还是2350。
• 循环逻辑的低效（非本次问题主因，但可优化）：用Do循环累加50直到超过LastRow，不仅代码啰嗦，还不如直接用数学公式高效。

修复后的代码 #

'Graph Creator
Sub CreateChart()
    Application.ScreenUpdating = False ' 关闭屏幕刷新，提升运行速度
    
    'Data Selection
    Dim sht As Worksheet
    Set sht = Sheets("Data")
    Dim LastColumn As Long
    Dim LastRow As Long
    Dim StartCell As Range
    Set StartCell = sht.Range("D1") ' 直接指定工作表，避免冗余的Select操作
    
    ' 正确获取当前数据的最后行（彻底避开缓存问题）
    LastRow = sht.Cells(sht.Rows.Count, StartCell.Column).End(xlUp).Row
    ' 正确获取当前数据的最后列
    LastColumn = sht.Cells(StartCell.Row, sht.Columns.Count).End(xlToLeft).Column
    
    ' 创建图表，直接引用对象而非依赖ActiveChart
    Dim chtObj As Shape
    Set chtObj = sht.Shapes.AddChart2(240, xlXYScatterSmoothNoMarkers)
    Dim cht As Chart
    Set cht = chtObj.Chart
    cht.SetSourceData Source:=sht.Range(StartCell, sht.Cells(LastRow, LastColumn))
    
    ' 用数学公式直接计算向上取整到最近50的倍数
    Dim X As Integer
    X = ((LastRow + 49) \ 50) * 50 ' 核心逻辑：加49后整除50再乘50，实现向上取整
    
    'Graph Positioning
    cht.Location Where:=xlLocationAsObject, Name:="Graph"
    With cht.Parent
        .Height = 500
        .Width = 1000
        .Left = sht.Range("A1").Left
        .Top = sht.Range("A1").Top
    End With
    
    ' 移除网格线和标题，避免Select操作
    cht.Axes(xlValue).MajorGridlines.Delete
    cht.ChartTitle.Delete
    
    Application.ScreenUpdating = True
End Sub

关键修改点说明 #

• 替换LastRow的获取方式：用sht.Cells(sht.Rows.Count, StartCell.Column).End(xlUp).Row从列底往上找最后一个有数据的单元格，彻底摆脱Excel的缓存限制，每次都能拿到当前真实的最后行。
• 用数学公式计算X：((LastRow + 49) \ 50) * 50这个公式的原理是：给LastRow加49后，整除50会自动舍去小数部分，再乘50就得到了大于等于LastRow的最小50倍数，比循环简洁高效得多。
• 减少不必要的Select操作：原代码里多次用Select和ActiveSheet/ActiveChart，不仅容易出错，还会拖慢运行速度，改成直接引用对象的方式更稳定可靠。

这样修改后，不管你切换到多少行的数据集，X轴最大值都会自动更新到正确的50倍数啦！

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