【エクセルマクロ】名前の定義の範囲を自動変更：使用例３選

エクセルマクロで、名前の定義の参照範囲を自動変更するVBAコードをご紹介します。

このページのマクロコードは、コピペで使えます。
ぜひお試しください！

名前の定義の参照範囲を変更（横に可変）
名前の定義の参照範囲を変更（縦に可変）
名前の定義の参照範囲を変更（複数）

名前の定義の参照範囲を変更（横に可変）

以下のマクロを実行すると、名前の定義の範囲を一括変更します。


Sub 名前の定義の範囲変更()

Dim Last_Clm As Long

    '1行目の最終列を取得
    Last_Clm = Cells(1, Columns.Count).End(xlToLeft).Column

    '名前定義の参照範囲を変更
    ActiveWorkbook.Names.Add Name:= _
           "都道府県名", RefersToLocal:= _
              Range(Cells(1, 1), Cells(1, Last_Clm))

End Sub

マクロ実行前

セルA1：E1に「都道府県名」という名前定義を作成します。

セルF1：G1にデータを追加します。

追加した２つのデータも「都道府県名」という名前定義の範囲に

自動で入れたいと思います。

マクロ実行後

名前定義の参照範囲を、セルA1：G1に自動で変更できました。

名前の定義の参照範囲を変更（縦に可変）

以下のマクロを実行すると、名前の定義の範囲を一括変更します。


Sub 名前の定義の範囲変更()

Dim Last_Row As Long

    'A列の最終行を取得
    Last_Row = Cells(Rows.Count, 1).End(xlUp).Row

    '名前定義を再作成
    ActiveWorkbook.Names.Add Name:= _
           "都道府県名", RefersToLocal:= _
              Range(Cells(1, 1), Cells(Last_Row, 1))

End Sub

マクロ実行前

セルA1：A5に「都道府県名」という名前定義を設定します。

セルA6：A7にデータを追加します。

追加した２つのデータも「都道府県名」という名前定義の範囲に、

自動で入れたいと思います。

マクロ実行後

名前の定義の参照範囲を、セルA1：A7に変更できました。

名前の定義の参照範囲を変更（複数）

以下のマクロを実行すると、複数の名前定義の範囲を一括変更します。


Sub 名前の定義の範囲変更()

Dim Last_Clm As Long
Dim i As Long

    '1～3行目をループ
    For i = 1 To 3

        '各行の最終列を取得
        Last_Clm = Cells(i, Columns.Count).End(xlToLeft).Column
    
        '名前定義の参照範囲を変更
        ActiveWorkbook.Names.Add Name:= _
               Cells(i, 1), RefersToLocal:= _
                  Range(Cells(i, 1), Cells(i, Last_Clm))

    Next i

End Sub