能不能不用一条一条添加数据，自动生成图表

cqzy123456

能不能不用一条一条添加数据，自动生成图表。因为数据会增加，添加太麻烦了。

Datous

定义名称作图，如设名称
x=OFFSET(OTP採樣電壓與溫度關係!$A$5,,,COUNT(OTP採樣電壓與溫度關係!$A$5:$A$5000))
y=OFFSET(OTP採樣電壓與溫度關係!$B$5,,,COUNT(OTP採樣電壓與溫度關係!$B$5:$B$5000))

493861364

录个宏，加一个循环，改吧改吧



Sub 宏1()
r = Cells(65535, 1).End(xlUp).Row
c = Cells(4, Sheet1.Columns.Count).End(xlToLeft).Column
Cells(r + 2, 1).Select

ActiveSheet.Shapes.AddChart2(240, xlXYScatterSmooth).Select
For i = 1 To c / 2
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.FullSeriesCollection(i).Name = Cells(3, i * 2 - 1)
    ActiveChart.FullSeriesCollection(i).XValues = Range(Cells(5, i * 2 - 1), Cells(Cells(65535, i * 2 - 1).End(xlUp).Row, i * 2 - 1))
    ActiveChart.FullSeriesCollection(i).Values = Range(Cells(5, i * 2), Cells(Cells(65535, i * 2).End(xlUp).Row, i * 2))
Next
End Sub