‘壹’ excel中一张数据表格如何同时制作多张图表
在电脑excel表格的使用当中，一张数据表格想要同时制作多张图表，可以采用图表插入的形式，根据数据进行图表数据调整和分析，这样就可以达到很理想的使用效果。所以平时使用的方法和技巧，一定要多学习。
‘贰’ 在Excel中如何实现一个X值对应多个Y值
结论已经得出：在Excel中，通过简单的步骤，可以实现一个X值对应多个Y值的散点图。以下是操作的直观描述：
首先，打开Excel，确保你已经准备好包含X和Y数据的表格作为数据源。这是制作散点图的基础。
接着，选中这两列数据，切换至菜单栏的“插入”选项，然后在“图表组”中找到散点图图标，点击它，你会看到多个散点图模板，选择第一个即可开始绘制。
完成基本的散点图绘制后，你会看到初始的图表。为了展示每个X值对应的多个Y值，需要对Y轴进行进一步操作。在Y轴上右键单击，选择“添加次要网格线”选项。
这样，Excel会自动在Y轴上添加一系列的网格线，每个网格线代表一个等Y值的区间。现在，你的散点图就清晰地展示了每个X值对应的不同Y值范围，方便数据的分析和解读。
‘叁’ 如何将数据区域分割成多个图表系列
问：如图 1所示的列表，如果需要针对列表中的每一行都单独创建一个图表系列，如何快速实现？
图 1
答：方法一：使用公式
首先，将图 1 所示的数据进行整理，如图 2 所示。
图 2
其中，第 1 行的 D1：G1 中为列 A 中的不重复项。
在单元格 D2 中输入公式：
= IF（$ A2 = D $ 1，$ C2，NA（））
先进至单元格区域 D2：G14 。
选择单元格区域 B1：B14 ，按住 Ctrl 键不放，选择单元格区域 D1：G14 。
插入 XY 散点图，结果如图 3 所示。
图 3
注：在折线图或 XY 散点图中，＃N / A 值不会被替换；在条形图或柱状图上，空字符串 ”” 不会被替换。
方法二：使用 VBA
使用循环读取单元格区域的第 1 列，依次通过第 1 列进入行组合，依次每个组合作为图表的一个系列。
首先选择图表，然后运行下面的 VBA 程序，会依次图 4 所示的这种，要求输入数据区域。
图 4
单击确定后，结果如图 5 所示。
图 5
代码如下：
子CreateChartByRow（）
暗淡作为图表
调光范围
Dim strPrompt作为字符串
尽可能长的昏暗
点心系列
调光行
Dim lngRowStart只要长
只要Dim lngRowEnd
Dim strSeries作为字符串
如果ActiveChart一无所获
MsgBox“ 请选取图表并重试。”，vbExclamation
转到ExitSub
万一
strPrompt =“ 选择包含数据的 3 列单元格区域。”
strPrompt = strPrompt＆vbNewLine＆“ 第 1 列：系列标题 ”
strPrompt = strPrompt＆vbNewLine＆“ 第 2 列： X 值 ”
strPrompt = strPrompt＆vbNewLine＆“ 第 3 列： Y 值 ”
strPrompt = strPrompt＆vbNewLine＆“ 避免空单元格 ”
关于错误继续
设置rng = Application.InputBox（Prompt：= strPrompt，Type：= 8）
出错时转到0
如果rng什么都没有，则转到ExitSub
设置cht = ActiveChart
做
如果cht.SeriesCollection.Count = 0那么退出
cht.SeriesCollection（1）。删除
循环
strSeries =“”
lngSrs = 0
对于lngRow = 1到rng.Rows.Count + 1
如果rng.Cells（lngRow，1）.Value > strSeries或lngRow> rng.Rows.Count然后
如果lngSrs> 0然后
lngRowEnd = lngRow-1
设置srs = cht.SeriesCollection.NewSeries
与srs
.values = rng.Cells（lngRowStart，3）.Resize（lngRowEnd +1-lngRowStart）
.XValues = rng.Cells（lngRowStart，2）.Resize（lngRowEnd +1-lngRowStart）
.Name = rng.Cells（lngRowStart，1）.Value
.ApplyDataLabelsShowSeriesName：=正确，_
ShowCategoryName：= False，ShowValue：= False
结束于
万一
lngRowStart = lngRow
strSeries = rng.Cells（lngRow，1）.Value
lngSrs = lngSrs + 1
万一
下一个
ExitSub：
Application.ScreenUpdating = True
结束