我帮你搞定这个XY散点图加垂直线的坑——你遇到的X轴全变成0:00:00、数据失踪的问题，多半是添加垂直线时没处理好系列的X轴数据类型，或者轴的绑定设置错了。下面给你靠谱的解决思路，亲测有效：

方法1：用独立辅助系列画垂直线（推荐） #

这种方法完全不碰原有数据和轴设置，不会干扰原散点图的显示：

• 先确定你要画的垂直线对应的X值（比如今天的日期，用Date获取）
• 创建一个新系列，X值设为两个相同的目标值（比如Array(目标X, 目标X)），Y值取当前散点图Y轴的最小和最大值，这样线条能贯穿整个图表区域
• 把这个系列改成折线图类型，再调整样式就行

示例VBA代码 #

Sub AddVerticalScatterLine()
    Dim ws As Worksheet
    Dim chtObj As ChartObject
    Dim lineX As Double
    Dim yMin As Double, yMax As Double
    Dim lineSeries As Series
    
    ' 替换成你的工作表和图表名称
    Set ws = ThisWorkbook.Worksheets("你的工作表名")
    Set chtObj = ws.ChartObjects("你的图表名")
    ' 设置垂直线的X位置（这里用当前日期，按需修改）
    lineX = CDbl(Date)
    
    ' 获取当前散点图Y轴的范围
    With chtObj.Chart.Axes(xlValue)
        yMin = .MinimumScale
        yMax = .MaximumScale
    End With
    
    ' 添加新的垂直线系列
    Set lineSeries = chtObj.Chart.SeriesCollection.NewSeries
    With lineSeries
        .XValues = Array(lineX, lineX)
        .Values = Array(yMin, yMax)
        ' 设为折线图，避免干扰散点图类型
        .ChartType = xlLine
        ' 自定义线条样式（可选）
        .Format.Line.ForeColor.RGB = RGB(255, 0, 0)
        .Format.Line.DashStyle = msoLineDash
        ' 隐藏数据点，只留线条
        .MarkerStyle = xlMarkerStyleNone
        ' 关键：绑定到主X轴，避免Excel自动调整轴刻度
        .AxisGroup = xlPrimary
    End With
    
    ' 强制刷新图表，确保显示正常
    chtObj.Chart.Refresh
End Sub

为什么你之前的方法失效？ #

你说尝试了第二个Y轴但没用，大概率是这两个问题：

• 新系列的X值格式不对：如果用了文本或者非数值/日期类型，Excel会自动把X轴转成时间格式（0:00:00其实是日期的0值）
• 没指定系列的AxisGroup：如果默认用了次轴，Excel会重新计算X轴范围，把原有数据挤出可视区域

额外小贴士 #

• 如果Y轴范围会随数据更新变化，可以每次添加垂直线前重新获取Y轴的最小/最大值，或者直接设一个覆盖所有数据的固定范围（比如Array(-1000, 1000)）
• 绝对不要修改原散点图系列的任何设置，确保新系列完全独立

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