پرسش رسم 100 جفت دیتای x و y صورت یکجا

[Excel learner]

سلام
100 جفت دیتای x و y دارم میخوام به صورت دو به دو رسمشون کنم (مثل فایل ضمیمه که سه نمونه اش رو رسم کردم)

http://uupload.ir/filelink/J4VQUWnlnsq2/esw3_1.xlsx

آیا راهی وجود داره که همه رو یک جا رسم کنم و یه دونه یه دونه add نکنم؟
ممنون

[iranweld]

با سلام

ماکرو ذیل دیتای موجود رو به چارت شما اضافه میکنه

Sub Macro1()

z1 = Cells(Rows.Count, "A").End(xlUp).Row

For i = 1 To z1


    ActiveChart.PlotArea.Select
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(i).XValues = "=Sheet1!$A$" & i & ":$B$" & i
    ActiveChart.SeriesCollection(i).Values = "=Sheet1!$C$" & i & ":$D$" & i
    
    Next
    
End Sub 

[Excel learner]

با سلام

ماکرو ذیل دیتای موجود رو به چارت شما اضافه میکنه

Sub Macro1()

z1 = Cells(Rows.Count, "A").End(xlUp).Row

For i = 1 To z1


    ActiveChart.PlotArea.Select
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(i).XValues = "=Sheet1!$A$" & i & ":$B$" & i
    ActiveChart.SeriesCollection(i).Values = "=Sheet1!$C$" & i & ":$D$" & i
    
    Next
    
End Sub 

بسیار متشکرم
اگر بخوام همگی مشکی باشن باید چیکار کنم؟