【VBA】定義された名前の一覧をシートに書き出す方法(Names)

2023年12月16日

Excelにはセル範囲などに名前を付ける機能があります (数式タブで設定できます)

ただ､この名前はシートのコピーなどで段々と増えていって､収集が付かなくなっていくことがあります｡

そこで､今回はVBAを使って名前の一覧を書き出す方法を紹介します｡

シンプルなコードで確認できるので活用してみてください｡

定義された名前の一覧をシートに書き出すコード

Sub OutputNames()
    '''定義された名前の一覧をアクティブシートに書き出す
    
    Range("A1").Resize(, 2) = Array("名前", "参照範囲")
    
    Dim nm As Name, row_i As Long
    row_i = 2
    
    For Each nm In ActiveWorkbook.Names
        Cells(row_i, 1).Resize(, 2) = Array(nm.Name, "'" & nm.RefersTo)
        row_i = row_i + 1
    Next
End Sub

このコードを実行すると､ワークブックで定義されている名前がアクティブシート上に書き出されます｡