こんな感じ

Sub aaaaa()

Dim datanum As Long
”’ データの総数を求める
Range(“A1048576”).Select
Selection.End(xlUp).Select
datanum = Selection.Row

If ActiveSheet.ChartObjects.Count > 0 Then
ActiveSheet.ChartObjects.Delete
End If

Dim lpct As Long, objcnt As Long: objcnt = 0
For lpct = 1 To datanum Step 1800
Range(“I” & lpct & “:I” & (lpct + 1800) & “,P” & lpct & “:P” & (lpct + 1800)).Select
ActiveSheet.Shapes.AddChart2(332, xlLineMarkers, 600, (objcnt * 320), 2000, 300).Select
ActiveChart.ChartTitle.FormulaR1C1Local = “” & lpct & “:” & (lpct + 1800) & “/” & datanum

ActiveChart.FullSeriesCollection(1).Name = “=””I”””
ActiveChart.FullSeriesCollection(2).Name = “=””P”””

ActiveChart.Axes(xlValue).Select
ActiveChart.Axes(xlValue).MinimumScale = -1400
ActiveChart.Axes(xlValue).MaximumScale = 1400

objcnt = objcnt + 1

Next lpct

Range(“E1”).Select

End Sub