|
500行〜1000行のデータのグラフの挿入をVBAで行いたいと考えています。
下は「新しいマクロの記録」で得たコードです。(B列が横軸、C列が縦軸)
Sub GURAFU01()
Charts.Add
ActiveChart.ChartType = xlXYScatterSmooth
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range( "B2:B600,C2:C600"), PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
End Sub
グラフ横軸の範囲は、上のコードでは2行目〜600行目までですが、その上限を
A列に"0"が初めて3つ以上並ぶまでにしたいのです。
例)
A B C
… … …
9 800 110
3 801 150
1 802 190
0 803 260
0 804 300
0 805 360 (B列横軸の上限ここまで)
0 806 390
A列に0が初めて3つ以上並んだ行を取得して上のコードに反映させるには
どうしたらいいでしょうか?
|
|