☰

以行作为单独系列的散点图

tag-icon • tag-icon microsoft-excel charts
以行作为单独系列的散点图

我有许多行需要作为单独的系列绘制在散点图中。

C2；C55 包含我想要在散点图中标记的每个单独系列的名称。

Z2；Z55 包含每个单独系列的 x 值

Y2；Y55 包含每个单独系列的 y 值

有没有办法可以快速绘制每个单独的系列，而无需从交叉图中选择数据并选择每个单独的系列？

感谢您的时间和见解。我对这个网站印象深刻。第一次问问题。

答案1

此例程插入一个新工作表，并将每一行添加为一个新系列，其中 X 值在 Z 列，Y 值在 Y 列，系列名称在 C 列，每个点都标有其系列名称：

Sub MakeMyChart()
  With ActiveSheet.Shapes.AddChart(xlXYScatter).Chart
    Do While .SeriesCollection.Count > 0
      .SeriesCollection(1).Delete
    Loop
    Dim RowNum As Long
    For RowNum = 2 To 55
      With .SeriesCollection.NewSeries
        .Values = ActiveSheet.Range("Y" & RowNum)
        .XValues = ActiveSheet.Range("Z" & RowNum)
        .Name = "=" & ActiveSheet.Range("C" & RowNum).Address(, , , True)
        .HasDataLabels = True
        With .DataLabels
          .ShowValue = False
          .ShowSeriesName = True
        End With
      End With
    Next
  End With
End Sub

相关内容