在Excel中绘制大量序列

在Excel中绘制大量序列,excel,Excel,我的工作表分为四列,分别标记为x1、y1、x2、y2,共有100行。每行表示一条从x1、y1开始到x2、y2结束的线段。如何在Excel中绘制这些线段,而不必单独添加每个系列?完全选择这些列并插入图表仅将它们绘制为四个系列(含100个点)或100个系列(含4个点) 编辑:是否有VBA代码可以执行此操作?使用VBA这是可能的 让我们看下表: 以及以下VBA代码: Sub createChart() With ActiveSheet Set oChart = .ChartObjects.

我的工作表分为四列,分别标记为x1、y1、x2、y2,共有100行。每行表示一条从x1、y1开始到x2、y2结束的线段。如何在Excel中绘制这些线段,而不必单独添加每个系列?完全选择这些列并插入图表仅将它们绘制为四个系列(含100个点)或100个系列(含4个点)


编辑:是否有VBA代码可以执行此操作?

使用VBA这是可能的

让我们看下表:

以及以下VBA代码:

Sub createChart()

 With ActiveSheet

  Set oChart = .ChartObjects.Add(Left:=300, Top:=0, Width:=200, Height:=200).Chart
  oChart.ChartType = xlXYScatterSmooth

  lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row

  For r = 2 To lastRow
   Set oSeries = oChart.SeriesCollection.NewSeries
   oSeries.XValues = Union(.Cells(r, "A"), .Cells(r, "C"))
   oSeries.Values = Union(.Cells(r, "B"), .Cells(r, "D"))
  Next

  oChart.SetElement msoElementLegendNone

 End With

End Sub
结果:


我总是说,如果你花五分钟处理数据,你可以用图表节省五个小时。这是一种情况,在这种情况下,不同的数据安排可以以更少的努力产生所需的结果

按如下所示排列数据。所有X值在B列中,所有Y值在C列中,X、Y值对由空行分隔。给定此数据,Excel在每对X、Y值之间绘制线段,并绘制对应于空白行的间隙。我试着在A列中添加标签来帮助解释:线段被标记为A、B等

选择B列和C列中的数据,插入一个XY散点图,该散点图带有直线且没有标记


“如何在Excel中绘制这些段,而不必单独添加每个系列?”如果仅使用Excel GUI,则无法这样做。但这是一个程序员O/a站点。那么你会使用什么编程语言呢?你已经试过什么了?@AxelRichter抱歉,应该指定,有没有办法用VBA实现?(我对这方面不是很了解)这正是我想要做的,谢谢你的帮助。谢谢,如果我想超过Excel的256系列图表限制,这不是一个坏方法,但我认为与vba相比,它实际上增加了相当多的时间来设置和修改100多组基于公式的坐标。