求一个<em>EXCEL</em> <em>VBA</em>程序，把表中

不是有录制宏的功能吗？
先建一个简单的图，用宏录制，然后修改用于大数据
以下是我录制的
Sub 绘折e79fa5e98193e78988e69d83361线图()

Charts.Add
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A5:G5"), PlotBy:= _
xlRows
ActiveChart.SeriesCollection(1).XValues = "=Sheet1!R9C1:R9C7"
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
End Sub

A5:G5为数据区域
R9C1:R9C7 表示X轴标志所在单元格区域
第9行第1列(即A9)到第9行第7列(即G9)

如果不需要可以把这行删除，得到，然后横坐标就自动123456

Sub 绘折线图()

Charts.Add
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A5:G5"), PlotBy:= _
xlRows
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
End Sub

自己百度 Excel下拉zd列表内容来自不同sheet按条件查找
OFFSET( INDIRECT( 这两个
INDEX(可能有问题
不同页我内就成功过一次
(A1&"!b1"),B1-1,)要是你看不懂(name!$A$2:$A$14,MID(CELL("filename"),FIND("
我就呵容呵
If Instr(Range("a" & i) ,"-F")>0 and rows(i).hidden=false Then

Sub 绘折线图()

Charts.Add
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A5:G5"), PlotBy:= _
xlRows
ActiveChart.SeriesCollection(1).XValues = "=Sheet1!R9C1:R9C7"
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
End Sub

A5:G5为数据区域
R9C1:R9C7 表示X轴标志所在e69da5e887aa7a686964616f334单元格区域
第9行第1列(即A9)到第9行第7列(即G9)

如果不需要可以把这行删除，得到，然后横坐标就自动123456

Sub 绘折线图()

Charts.Add
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A5:G5"), PlotBy:= _
xlRows
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
End Sub