如何将一个数据区划分为多个图表系列？

问：对于图1所示的列表，如果需要为列表中的每一行创建一个图表系列，如何快速实现？

图1

答：方法一：用公式。

首先，整理图1所示的数据，如图2所示。

图2。

其中，第一行的D1: G1是a列的非重复项。

在D2单元格中输入公式：

=IF($ A2=D $ 1，$ C2，NA())

前进到D2牢房区：g14。

选择单元格区域B1: B14，按住Ctrl键，选择单元格区域D1: G14。

插入XY散点图，结果如图3所示。

图3。

注意：# #N/A值在折线图或XY散点图中不会被替换；空字符串“”不会在条形图或直方图上被替换。

方法二：使用VBA。

使用循环读取单元格区域的第一列，依次通过第一列输入行组合，每个组合依次将被视为一系列图表。

首先选择图表，然后运行下面的VBA程序，依次如图4所示，需要输入数据区。

图4

单击确定后，结果如图5所示。

图5

代码如下：

Child CreateChartByRow()

像图表一样模糊。

调光范围

将字符串形式的字符串变暗。

越久越好。

零食系列

变暗线

Dim lngRowStart只需要很长。

只是昏暗的灯光。

将字符串变暗。

如果活动图表什么也没找到。

MsgBox“请选择一个图表，然后重试。”，VB惊叹号

转到ExitSub。

以防万一

StrPrompt="选择包含数据的3列单元格区域，"

StrPrompt=StrPrompt & vbNewLine & &“第1列：系列标题”。

StrPrompt=StrPrompt & vbNewLine & &“第2列：x值”。

StrPrompt=strPrompt & vbNewLine & &“第3列：y值”。

StrPrompt=StrPrompt & vbNewLine & &“避免空单元格”。

关于错误继续。

设置RNG=application.inputbox(提示：=strprompt，类型：=8)。

出现错误时转到0。

如果rng没有任何东西，请转到ExitSub。

设置cht=活动图表。

做

如果cht，请退出。系列集合。计数=0。

cht。系列集合(1).删除

传播

strSeries=" "

lngSrs=0

lngRow=1至rng。行数。计数1，

如果rng。细胞(生长，1)。valuestreries或lngRow rng。行。然后计数。

如果lngsr0，则

lngrowind=lngRow-1

设置SRS=cht . series collection . newseries。

和srs。values=rng。单元格(lngRowStart，3)。调整大小(开始1-开始1)。XValues=rng。单元格(lngRowStart，2)。调整大小(开始1-开始1)。Name=rng。单元格(lngRowStart，1)。价值。applydatalabshowseriesname:=正确，_

ShowCategoryName:=False，ShowValue:=False

最后有

以防万一

lngRowStart=lngRow

strSeries=rng。细胞(生长，1)。价值

lngSrs=lngSrs 1

以防万一

然后

ExitSub:

申请。屏幕更新=真

目标