使用VBA Excel创build散点图

这是我的VBA代码在Excel中创build散点图：

Sub createmychart() Dim Chart1 As Chart Set Chart1 = Charts.Add With Chart1 .SetSourceData Source:=Sheets("usd_download data").Range("A2:B26001") .ChartType = xlXYScatter End With End Sub 

然而，结果是这样的：

但我想有一个这样的图表：

我试了很多，但无法弄清楚如何做到这一点。

Answer 1

不知道你的数据是什么样的，你的代码似乎有两个系列的数据，而你只需要一个。

 Sub createmychart() Dim Chart1 As Chart Set Chart1 = Charts.Add With Chart1 .ChartType = xlXYScatter .SeriesCollection.NewSeries 'Change to what your series should be called .SeriesCollection(1).Name = "=""Values""" .SeriesCollection(1).XValues = "=usd_download data!$A$2:$A$26001" .SeriesCollection(1).Values = "=usd_download data!$B$2:$B$26001" End With End Sub