通过vba给excel散点图自动添加系列

1.如下图B:C两列是一组数据，E:F两列是另一组数据，制作方法如下：

2.选择B:C两列数据，不要带标题部分，插入散点图：

3.修改一下坐标轴标签的位置，将XY轴的标签分别置于最低部和最左侧，此时的图表如下：

4.在绘图区域中右键选择：选择数据，并在d出的对话框中选择：添加

5.分别将E列数据添加到X轴系列值，F列数据添加了Y轴系列值，并单击确定即可，此时原对话框中多出了一个：系列2，点击确定完成数据的添加。

6.如下图：两个系列的散点图表即完成了。

1.选中sheet1中数据源的第一列，单击公式Formulas---名称管理器Name manager（或者选中数据源第一列后，直接按CTRL+F3快捷键直接到达名称管理器对话框）。

2.在名称管理器对话框里单击新建按钮 new。

3.在名称那里把这个区域命名为“城市”,然后单击确定。退出名称管理器。此时发现下面引用的区域就是我们刚刚选定的A1:A19 。

4.选中sheet4中的A2单元格，单击数据----数据有效性，打开数据有效性对话框，在“允许”那里选择“序列”。

5. 在数据源那里填写我们刚刚在名称管理器新建的“城市”然后点击确定。

6.发现A2单元格下拉列表中显示的是sheet1中A列的内容。

7.下面要让A2单元格下拉列表数据源显示sheet1中整个表的城市名称。

按ctrl+F3快捷键，打开名称管理器对话框，把引用refers to引用源那里改为

=Sheet1!$A$1:$P$19，然后退出名称管理器对话框。

8.发现现在A2单元格的下拉列表数据源引用了sheet1中多列内容。

你可以先录制一个创建图表的宏，再加上需要创建图表的条件，稍做修改就行了。

你的问题太含糊了，没有人能精准的回答你的问题。

ActiveSheet.Shapes.AddChart.Select'创建并激活图表

ActiveChart.SetSourceData Source:=Range("Sheet1!$A$1:$D$8")'设定图表的数据源

ActiveChart.ChartType = xlColumnStacked'设置图表的图表类型

.......

等等.

---