Como selecionar uma coluna com base no cabeçalho da coluna no Excel?

Suponha que você tenha uma grande planilha que contém várias colunas e, agora, gostaria de selecionar a coluna específica com base em um nome de cabeçalho de coluna. Encontrar coluna por coluna em uma planilha grande é uma perda de muito tempo, neste artigo, vou apresentar um método rápido para resolver esse trabalho no Excel.

Selecione uma coluna com base no nome do cabeçalho da coluna com o código VBA

Selecione uma coluna com base no nome do cabeçalho da coluna com o código VBA

O código VBA a seguir pode ajudá-lo a selecionar as colunas com base em um nome de cabeçalho específico, faça o seguinte:

1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole o seguinte código no Módulo Janela.

Código VBA: Selecione a coluna com base no nome do cabeçalho da coluna:

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

Note: No código acima, A1: P1 é o intervalo de cabeçalhos dos quais você deseja selecionar as colunas e “Nome”No roteiro xStr = "Nome" é o nome do cabeçalho no qual você deseja selecionar as colunas. Por favor, altere-os de acordo com sua necessidade.

3. Depois de copiar e colar o código, pressione F5 chave para executar este código, e todas as colunas com o nome do cabeçalho específico foram selecionadas de uma vez, veja a captura de tela: