求助2个excel宏

来源：百度知道 编辑：UC知道 时间：2024/06/25 05:20:51
第1行无数据 求助2个excel宏
1 E列(时间)复制到A列 然后A列和B列成折线散点图
2 E列(时间)复制到A列 然后A列和D列成折线散点图

Sub Macro1()
Application.ScreenUpdating = False
X = Range("E2").End(4).Row()
Range("E2:E" & X).Copy Range("A2")
Charts.Add
ActiveChart.ChartType = xlXYScatterLines
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A2:B" & X), PlotBy _
:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
Application.ScreenUpdating = True
End Sub

Sub Macro2()
Application.ScreenUpdating = False
x = Range("E2").End(4).Row()
Range("E2:E" & x).Copy Range("A2")
Charts.Add
ActiveChart.ChartType = xlXYScatterLines
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A2:A" & x), PlotBy _
:=xlColumns
ActiveChart.SeriesCollection(1).XValues = "=Sheet1!R2C1:R" & x & "C1"