向散点图中的系列添加数据列

Question

如果突出显示 A 列中的日期，我创建了一个 VBA 以根据一行数据生成散点图。生成了散点图，但该系列提取了两个突出显示的日期，然后从后续列中提取了所有数据。我只希望该系列从 A 列中提取突出显示的日期。

这是我的 VBA：

Dim X As Long, LastRow As Long, J As Long, Cell As Range
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets(ActiveSheet.Name)

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

J = 1

Dim Chart1 As Chart
Set Chart1 = Charts.Add

With Chart1
    .ChartType = xlXYScatterLines
    
For X = StartRow To LastRow
On Error Resume Next
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
Else
J = J
 End If
 Next X
 End With

End Sub