【VBA】データを追加したときのグラフの挙動を制御する方法

Excel でデータを追加すると、通常のグラフでは範囲が固定のため、
新しいデータが反映されなかったり、意図しない動作 をすることがあります。

実務で間違いのないグラフを作るには、
「データ追加時にどう動くか」 をきちんとコントロールしておくことが重要です。

本記事では、データ追加に柔軟に対応するための VBA テクニックを
4つの観点からわかりやすく解説します。

1. データ追加時の基本動作を理解する
2. 動的な最終行取得を使って自動更新させる
3. 自動更新イベントで即時に反映させる
4. 新しいデータが追加されたときの「グラフのズレ」を防ぐ
5. テーブル化（ListObject）を使うとさらに安定する
6. 名前付き範囲を動的にしてグラフに設定する方法
- ■ INDEX で動的範囲を作る例
7. データ追加時の挙動制御まとめ
8. まとめ

1. データ追加時の基本動作を理解する

Excel のグラフは、元データの参照が静的な場合：

範囲が固定（例：A2:A10）
データ追加しても反映されない
手動で範囲を広げないと表示されない

というデメリットがあります。

これを防ぐには、次のいずれかの方法で
動的なデータ参照 に切り替える必要があります。

2. 動的な最終行取得を使って自動更新させる

もっともよく使う方法が、
「データ追加 → 最終行を再取得 → グラフに再設定」
という処理です。

以下は、A列（X軸）、B列（Y軸）にデータを追加していくケースです。

Sub UpdateChartDynamic()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim chartObj As ChartObject
    Dim rngX As Range
    Dim rngY As Range
    
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    '最終行取得
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    '最新データ範囲に更新
    Set rngX = ws.Range("A2:A" & lastRow)
    Set rngY = ws.Range("B2:B" & lastRow)
    
    Set chartObj = ws.ChartObjects("Chart 1")
    
    With chartObj.Chart
        .SeriesCollection(1).XValues = rngX
        .SeriesCollection(1).Values = rngY
        .Refresh
    End With
End Sub

データの追加に応じて、
グラフが自動的に伸びていくようになります。

3. 自動更新イベントで即時に反映させる

さらに便利にするため、
データを入力した瞬間にグラフが更新される仕組み
を構築します。

Sheet1 のモジュールに記述↓

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Me.Range("A:B")) Is Nothing Then Exit Sub
    Call UpdateChartDynamic
End Sub

メリット：

手動操作なしで常に最新のグラフ
転記・貼り付けでも自動更新
表示ミスが起こらない

4. 新しいデータが追加されたときの「グラフのズレ」を防ぐ

データ追加時に、以下のような問題が発生することがあります。

● グラフの線が途切れる

→ 空白（””）が混じった場合に発生

● 意図しない点がプロットされる

→ 数値以外が入ったときに発生

● 目盛りが自動調整されて見づらくなる

→ 最小値・最大値を固定していない場合に発生

これらを防ぐための制御コード例を紹介します。

■ 空白セルを読み飛ばす例

If WorksheetFunction.Count(rngY) = 0 Then Exit Sub  '全て空白なら更新しない

■ 数値以外の行を除外する例

If Not IsNumeric(ws.Cells(i, "B").Value) Then
    '数値でない場合はグラフに含めない
End If

■ Y軸の最小・最大値を固定して見た目を安定させる

With chartObj.Chart.Axes(xlValue)
    .MinimumScale = 0
    .MaximumScale = 100
End With

データ追加後も見た目が崩れません。

5. テーブル化（ListObject）を使うとさらに安定する

グラフに紐づける元データをテーブルに変換すると、
データ追加時に次の効果があります。

範囲が自動で広がる（自動伸長）
SeriesCollection の参照も安定
グラフ構造が壊れにくい

テーブル化の手順：

データ範囲を選択
Ctrl + T でテーブル作成
グラフの元データにテーブルの列を指定

その後、必要に応じて VBA の再描画処理だけを実行すればOK。

6. 名前付き範囲を動的にしてグラフに設定する方法

OFFSET / INDEX を使うことで、
データ増減に自動対応する名前付き範囲を設定できます。

■ INDEX で動的範囲を作る例

名前「XRange」

=Sheet1!$A$2:INDEX(Sheet1!$A:$A,COUNTA(Sheet1!$A:$A))

名前「YRange」

=Sheet1!$B$2:INDEX(Sheet1!$B:$B,COUNTA(Sheet1!$B:$B))

これをグラフの元データに設定すると、
データ追加時に自動で反映されます。

7. データ追加時の挙動制御まとめ

制御方法	特徴	おすすめ度
最終行取得＋再描画	一番シンプル、柔軟性高い	◎
Worksheet_Change で自動更新	完全自動化できる	◎
テーブル化	Excel標準の自動伸長が強力	◎
動的名前付き範囲	安定していて壊れにくい	○
軸範囲固定や空白対策	視認性・整形の安定化	◎

8. まとめ

データ追加時の挙動を制御すると、グラフが壊れず安定運用できる
最終行取得＋再描画が基礎
自動更新（Change イベント）が最も実務的
テーブル化や動的範囲を組み合わせるとさらに強力
軸設定・空白対策で見た目も安定