VBA用于N/A或动态范围的动态图表数据

Question

我可以为所需列定义列和数据，依此类推用于动态范围

但是我如何将其转换为excel文件中Tab下的复杂图表；图表数据">

有人能建议吗

Sub create_graph()
Dim ws  As Excel.Worksheet
Dim x As Range
Dim y As Range
Set ws = ActiveWorkbook.Worksheets("Chart Data")
Set x = ws.Range("B8:B" & ws.Cells(ws.Rows.Count, "B").End(xlUp).Row)
Set y = ws.Range("C8:B" & ws.Cells(ws.Rows.Count, "C").End(xlUp).Row)
ws.Shapes.AddChart.Select
With ActiveChart
.ChartType = xlLine
.SeriesCollection.NewSeries
.SeriesCollection(1).Values = x
End With
End Sub

现在这里有两个问题

• 我可以创建一个可以忽略空白和N/a的图表吗？这样我的数据就可以在图表中更好地发光
• 你能帮我用额外的代码创建图像图表吗

图表图像[1] ：https://i.stack.imgur.com/4ElYu.jpg

Answer 1

图表并不那么复杂。但是，您的数据并没有得到最佳布局。Y值列中的#N/A不会绘制点，但日期列中的所有空格都会让你感到困惑。

删除第33行以下的所有行。它们是正在扼杀图表的东西。

现在选择范围A7:R33，然后在功能区的"插入"选项卡上，选择"表格"。这会将范围转换为表，表是一种具有高级属性的数据结构。

请确保图表使用表中的列作为其数据。

将新数据添加到表下方的行时，表会注意到并展开以包括添加的行。引用表中整行的公式也将展开以包含新行。这意味着图表将展开以包含新数据。

这是我很久以前写的一篇关于表格神奇的动态性质的教程：使用列表或表格的简单动态图表。