哥们，再问你一个问题，就是用vba建立一个散点图表，有多少行数就有多少个系列，行数是随机的

其实就是做点的坐标图，系列名是点名，系列的x，y值是点的坐标
Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=Sheets("结果整理").range("Q23")
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "=结果整理!R3C11"
ActiveChart.SeriesCollection(1).Values = "=结果整理!R3C12"
ActiveChart.SeriesCollection(1).Name = "=结果整理!R3C1"
ActiveChart.SeriesCollection(2).XValues = "=结果整理!R4C11"
ActiveChart.SeriesCollection(2).Values = "=结果整理!R4C12"
ActiveChart.SeriesCollection(2).Name = "=结果整理!R4C1“
ActiveChart.Location Where:=xlLocationAsObject, Name:="结果整理"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "测战略图"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "E"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "N"
End With
With ActiveChart.Axes(xlCategory)
.HasMajorGridlines = True
.HasMinorGridlines = False
End With
With ActiveChart.Axes(xlValue)
.HasMajorGridlines = True
.HasMinorGridlines = False
End With
ActiveChart.HasLegend = True
ActiveChart.Legend.Select
Selection.Position = xlBottom
ActiveChart.ApplyDataLabels AutoText:=True, LegendKey:=False,HasLeaderLines:=False, ShowSeriesName:=True, ShowCategoryName:=False, ShowValue:=False, ShowPercentage:=False, ShowBubbleSize:=False
这是我用录制宏做的，它是固定行数的，有什么方法可以让它变成随着点个数的不同，添加不同个数的系列？跟们麻烦你了。

问题已解决

你不如直接上附件，这样看起来很累人的

不明白啊 = =！