VBA生成散点图：仅提取A列高亮日期的功能实现问题

你的代码问题出在创建图表时Excel自动生成了默认系列，加上On Error Resume Next隐藏了错误，导致多余的系列被保留。以下是修正后的代码，确保只生成A列高亮行对应的散点图系列：

Sub CreateHighlightedScatterChart()
    Dim X As Long, LastRow As Long, J As Long
    Dim ws As Worksheet
    Set ws = ThisWorkbook.ActiveSheet ' 简化ActiveSheet引用

    Const StartRow As Long = 3
    Const DataCol As String = "A"
    LastRow = ws.Cells(ws.Rows.Count, DataCol).End(xlUp).Row

    J = 1
    Dim Chart1 As Chart
    Set Chart1 = Charts.Add

    With Chart1
        .ChartType = xlXYScatterLines
        
        ' 清除Excel自动生成的默认系列
        Do While .SeriesCollection.Count > 0
            .SeriesCollection(1).Delete
        Loop
        
        For X = StartRow To LastRow
            ' 检查A列单元格填充色是否为65535（黄色）
            If ws.Cells(X, DataCol).Interior.Color = 65535 Then
                .SeriesCollection.NewSeries
                .SeriesCollection(J).Name = ws.Cells(X, DataCol).Value
                .SeriesCollection(J).XValues = ws.Range("$B$2:$AA$2")
                .SeriesCollection(J).Values = ws.Range(ws.Cells(X, 2), ws.Cells(X, 27))
                J = J + 1
            End If
        Next X
    End With
End Sub

关键修改说明： #

• 添加清除默认系列的循环：彻底移除Excel自动创建的多余系列，这是解决“纳入后续列全部数据”问题的核心
• 移除On Error Resume Next，避免隐藏代码中的其他潜在问题（比如单元格颜色读取错误）
• 简化ws的赋值语句，代码更简洁
• 给宏添加明确名称，便于识别和调用

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