セル範囲名を定義する【Nameプロパティ】【ExcelVBA】

セル範囲に名前を定義する

Nameプロパティを使って、指定したセル範囲に名前を定義することができます。
名前定義を設定すれば、Rangeオブジェクトの引数としても使用できます。
一度設定すると、Excelの名前ボックスに名前定義が追加されます。

構文
object.Name [ = newname ]

表の指定範囲に名前をつけるサンプルコード

Public Sub Sample()
  '簡易的な表を作る
  Range("A1:D1") = "項目"
  Range("A2:D5") = "DATA"
  Range("A1").CurrentRegion.Borders.LineStyle = xlContinuous

  '■データが入力されている範囲に名前をつける
  '「DATA」部分をセル範囲に設定
  Dim rng As Range
  Set rng = Range("A1").CurrentRegion
  With rng
    Set rng = .Resize(.Rows.Count - 1).Offset(1)
  End With
    
  rng.Name = "DATAエリア"       '設定したセル範囲に名前を定義する
  Range("DATAエリア").Select    '名前定義を選択

End Sub

注意点

• Cntl+F3で「名前の管理」を表示し、名前定義を確認できます。
• セル範囲に印刷範囲を設定した場合、名前の指定がなければ「Print_Area」と自動で定義されます。
• 名前定義を変更、削除する場合はこちらを参考にしてください。

関連記事

• 名前定義を変更、削除する【Namesプロパティ】【Deleteメソッド】
• ブック内の名前定義を全て削除【Namesプロパティ】【Deleteメソッド】
• ワークシート名を変更する【Nameプロパティ】
• ブックの名前を取得する【Nameプロパティ】