各列にカラム名をつけるExcelマクロ

各列にカラム名をつけるマクロ
各列にカラム名をつけるマクロの使用例
使い方のヒント

各列にカラム名をつけるマクロ

ExcelやCSVで受け取るデータは、1行目がタイトル行、2行目以降がデータという形式の割合が高いです。
また、こちらの記事で書いたように、Excelではセルの名前を使うと、分かりやすい式を書くことができます。

これらを考え合わせると、タイトルに示されているカラム名をデータの領域に勝手につけてくれるマクロがあると、仕事がはかどると思いませんか？

そこで、そのようなマクロを作ってみました。

'--------------------------------------------------------------------
' Summary: 各列の２行目から最終行までのレンジに１行目のカラム名を付ける
' Remarks: アクティブシートのシートの全列に作用する
'--------------------------------------------------------------------
Public Sub NameTheColumn()
    Dim i           As Long     ' ループ用変数
    Dim lngColumn   As Long     ' 列番号の最大値
    Dim lngRow      As Long     ' 行番号の最大値
    Dim objName     As Name     ' 名前オブジェクト
    Dim strTitle    As String   ' カラム名
    
    ' アクティブシート上の名前を全て消す
    For Each objName In ActiveSheet.Names
        objName.Delete
    Next objName
    
    ' 行番号の最大値と列番号の最大値を得る
    lngRow = ActiveSheet.Cells.SpecialCells(xlLastCell).Row
    lngColumn = ActiveSheet.Cells.SpecialCells(xlLastCell).Column
    
    ' 念のためにエラー処理ルーチンを有効化
    On Error Resume Next
    ' 最初の列から最後の列までループ処理
    For i = 1 To lngColumn
        ' １行目の内容をカラム名として保持
        strTitle = Cells(1, i).Text
        ' ２行目から最終行目までの範囲にカラム名を付ける
        ActiveSheet.Names.Add Name:=strTitle, _
                RefersToR1C1:="='" & ActiveSheet.Name & _
                "'!R2C" & i & ":R" & lngRow & "C" & i
    Next i
    ' エラー処理ルーチンを無効化
    On Error GoTo 0
End Sub