Excel对于n行数据，批量产生曲线图或是 复制已做好的曲线图，但是改动复制后数据，表格与原版一样
发布网友
发布时间：2022-04-30 02:29
共2个回答
热心网友
时间：2023-10-06 03:45
那么多图表放在同一工作表中，有点恐怖哦.....
批量产生可以借助vba，下面的代码将当前工作表A1:E100中的数据，每行数据产生一个折线图。
Sub 图表批量生成()
For r = 1 To 100
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A" & r & ":E" & r)
'ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1" '删除本句前的'可将各个图表作为对象插入sheet1中，否则各图表将单独作为chart表插入工作簿。
Next
End Sub
PS：代码使用方法，按住alt依次按F11,I,M。将代码粘贴至右侧窗口后按F5运行。
BTW：数据源变化图表必然变化，不明白你说的“不变”是什么原因造成的。
热心网友
时间：2023-10-06 03:45
