excel - 如何制作每行单独包含的图表

Question

如何为它制作一个 VBA 脚本以将所有行包含到 - 图中。该图是分散的，因此我无法添加一系列行，需要有一个 For 参数并相应地包含具有 X 和 Y 值的每一行。

我不擅长编程，所以尝试了一些宏，但没有帮助。

    Dim i As Integer, k As Integer
    Dim ws As Worksheet

    Set ws = ThisWorkbook.Sheets("page1")
    For i = 4 To 155
        For k = 1 To 155    
            ActiveSheet.Shapes.AddChart2(240, xlXYScatter).Select
            ActiveSheet.Shapes.AddChart2(240, xlXYScatter).Select

            ActiveChart.FullSeriesCollection(k).Name = ActiveSheet.Cells(i, 1)
            ActiveChart.FullSeriesCollection(k).XValues = ActiveSheet.Cells(i, 2)
            ActiveChart.FullSeriesCollection(k).Values = ActiveSheet.Cells(i, 3)
            k = k + 1
            i = i + 1
        Next k
    Next i  
End Sub

标签： excelvba