如何根据列标题在 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 键运行此代码，所有具有特定标题名称的列都会立即被选中，参见截图：