ExcelグラフをVBAで自動更新！UNIONメソッドを使った簡単な方法

Sub FindLastRow()
    Dim ws As Worksheet
    Dim lastRow As Long
    
    Set ws = ThisWorkbook.Sheets("Sheet1") '// 対象のシートを指定
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row '// A列の最終行を特定
    
    MsgBox "最終行は: " & lastRow
End Sub

Sub UpdateChartRange()
    Dim ws As Worksheet
    Dim chartObj As ChartObject
    Dim newRange As Range
    Dim lastRow As Long
    
    Set ws = ThisWorkbook.Sheets("Sheet1") '// 対象のシートを指定
    Set chartObj = ws.ChartObjects("グラフ 1") '// 対象のグラフを指定
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row '// A列の最終行を取得
    
    '// データ範囲を動的に作成
    Set newRange = Union(ws.Range("A1:A" & lastRow), ws.Range("B1:B" & lastRow))
    
    '// グラフのデータソースを更新
    chartObj.Chart.SetSourceData Source:=newRange
    
    MsgBox "グラフのデータ範囲を更新しました！"
End Sub

Sub UpdateAllChartsCustom()
    Dim ws As Worksheet
    Dim chartObj As ChartObject
    Dim newRange As Range
    Dim lastRow As Long

    '// 対象のシートを指定
    Set ws = ThisWorkbook.Sheets("Sheet1")

    '// データの最終行を特定（ここではA列を基準）
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

    '// シート上のすべてのグラフに対して処理を実行
    For Each chartObj In ws.ChartObjects
        '// グラフごとに条件を指定
        Select Case chartObj.Name
            Case "グラフ 1"
                '// グラフ 1 には列Aと列Bを設定
                Set newRange = Union(ws.Range("A1:A" & lastRow), ws.Range("B1:B" & lastRow))
            Case "グラフ 2"
                '// グラフ 2 には列Aと列Cを設定
                Set newRange = Union(ws.Range("A1:A" & lastRow), ws.Range("C1:C" & lastRow))
            Case Else
                '// その他のグラフには列Aと列Dを設定
                Set newRange = Union(ws.Range("A1:A" & lastRow), ws.Range("D1:D" & lastRow))
        End Select

        '// グラフのデータ範囲を更新
        chartObj.Chart.SetSourceData Source:=newRange
    Next chartObj

    '// 完了メッセージ
    MsgBox "すべてのグラフのデータ範囲を更新しました！"
End Sub

Sub UpdateChartRange()
    Dim ws As Worksheet
    Dim chartObj As ChartObject
    Dim newRange As Range
    Dim lastRow As Long
    
    Set ws = ThisWorkbook.Sheets("Sheet1") '// 対象のシートを指定
    Set chartObj = ws.ChartObjects("グラフ 1") '// 対象のグラフを指定
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row '// A列の最終行を取得
    
    '// データ範囲を動的に作成
    Set newRange = Union(ws.Range("A1:A" & lastRow), ws.Range("B1:B" & lastRow))
    
    '// グラフのデータソースを更新
    chartObj.Chart.SetSourceData Source:=newRange
    
    MsgBox "グラフのデータ範囲を更新しました！"
End Sub