全新
 问题

需要用多个系列绘制散点图，第一列给出系列名称

  Kutools for Excel
异想天开
  异想天开
  周日，09 2022十月
  1 回复
  4.9K访问
0
投票
解开
我有 3 列的数据。 第 1 列是系列名称，第 2 列是 x 值，第 3 列是 y 值。 数据是 XY 散点数据。 我应该将第 1 列合并到单个单元格吗？

我可以在同一张图表上绘制这些数据，以便使用 Kutools 拥有多个 xy 数据系列吗？
谢谢！ 我刚刚购买了该软件，因此正在寻求帮助。
0
最旧的  
Amanda Lee
Amanda Lee
1年前
·
#3127
0
投票
解开
您好，

我们已经创建了一个 VBA 代码，请将其插入到模块中并检查是否是您需要的：
Sub KutoolsChart()

'

' CSH

'

    Dim xRg As Range

    Dim i As Integer

    On Error Resume Next

    Set xRg = Application.InputBox(prompt:="Please select Range", Title:="Kutools for Excel", Type:=8)

    If TypeName(xRg) = "Nothing" Then Exit Sub

    If xRg.Columns.Count <> 3 Then

        MsgBox ("Reference is not Valid")

        Exit Sub

    End If

    ActiveSheet.Shapes.AddChart2(240, xlXYScatter).Select

    

    For i = 1 To xRg.Rows.Count

        ActiveChart.SeriesCollection.NewSeries

        ActiveChart.FullSeriesCollection(i).Name = xRg.Cells(i, 1).Value

        ActiveChart.FullSeriesCollection(i).XValues = xRg.Cells(i, 2)

        ActiveChart.FullSeriesCollection(i).Values = xRg.Cells(i, 3)

        ActiveChart.FullSeriesCollection(i).ApplyDataLabels

        ActiveChart.FullSeriesCollection(i).DataLabels.Select

        ActiveChart.FullSeriesCollection(i).DataLabels.ShowValue = False

        ActiveChart.FullSeriesCollection(i).HasLeaderLines = False

        ActiveChart.FullSeriesCollection(i).DataLabels.ShowSeriesName = True

    Next

End Sub

复制并粘贴上面的代码后，按 F5 运行代码。 然后会弹出一个对话框，要求您选择三列。

如果您有任何问题，请随时问我。

阿曼达
  • 页：
  • 1
目前还没有回复。