Question

如何实现Excel图表自动生成-VBA方面

如何使用Excel实现以下功能:
有一列数据,有多少行并不知道,
我现在想要用一个折线图来统计这一列数据
(Y轴表示数据,X轴顺序数字即可)
我录制了制作十个数据的拆线图的宏.如下:
--------------------------------------
Columns("A:A").Select
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:A10"), PlotBy _
:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
------------------------------------------
这一句中的("A1:A10"),应该就是用来控制这个图表的数据来源的.
十个数据就是A1:A10,但假如我事先并不知道有多少个数据,
应该用什么命令才能知道这一列有多少个数据呢?
若能通过执行相关的命令得出数据的个数,
又如何把结果反映在数据来源这条程序上呢?

ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:A10"), PlotBy _

我想法是,从关开始搜索,直到单元格为空则停止,然后得知这些光标所在单元格的行号,若行号为20则数据源为("A1:A20")以此类推...
即使这个方案能行,但是如何来实现,小弟我找资料有些晕,希望高手可以指教.

或许我说这个方案并不可行,或者较繁琐,请高手赐教啊!先谢谢了!

Answer 1

T=[A65536].END(XLUP).ROW
Columns("A:A").Select
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:A"&T), PlotBy _
:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With