Excelで列ヘッダーに基づいて列を選択するにはどうすればよいですか？

大きなワークシートがあり、多数の列が含まれているとします。そして、特定の列ヘッダー名に基づいてその列を選択したいとします。大きなワークシートで列ごとに探すのは多くの時間を浪費します。この記事では、Excelでこの作業を解決するための迅速な方法をご紹介します。

VBAコードを使用して列ヘッダー名に基づいて列を選択する

VBAコードを使用して列ヘッダー名に基づいて列を選択する

次のVBAコードは、特定のヘッダー名に基づいて列を選択するのに役立ちます。以下の手順を行ってください：

1. ALT + F11キーを押しながらMicrosoft Visual Basic for Applicationsウィンドウを開きます。

2. 「 挿入」>「モジュール」をクリックし、次のコードを モジュールウィンドウに貼り付けます。

VBAコード: 列ヘッダー名に基づいて列を選択する：

Sub FindAddressColumn()
'Updateby Extendoffcie
    Dim xRg As Range
    Dim xRgUni As Range
    Dim xFirstAddress As String
    Dim xStr As String
    On Error Resume Next
    xStr = "Name"
    Set xRg = Range("A1:P1").Find(xStr, , xlValues, xlWhole, , , True)
    If Not xRg Is Nothing Then
        xFirstAddress = xRg.Address
        Do
            Set xRg = Range("A1:P1").FindNext(xRg)
            If xRgUni Is Nothing Then
                Set xRgUni = xRg
            Else
                Set xRgUni = Application.Union(xRgUni, xRg)
            End If
        Loop While (Not xRg Is Nothing) And (xRg.Address <> xFirstAddress)
    End If
    xRgUni.EntireColumn.Select
End Sub

注釈: 上記のコードでは、 A1:P1 は選択したい列の範囲であり、「Name」（xStr = "Name"）はスクリプト内のヘッダー名です。必要に応じてこれらを変更してください。

3. コードをコピーして貼り付けた後、F5キーを押してこのコードを実行すると、指定したヘッダー名を持つすべての列が一度に選択されます。スクリーンショットをご覧ください：