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

Suponha que você tenha uma planilha grande que contém várias colunas e agora deseja selecionar a coluna específica com base no nome do cabeçalho da coluna. Procurar coluna por coluna em uma planilha extensa pode levar muito tempo. Neste artigo, vou apresentar um método rápido para resolver essa tarefa no Excel.

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

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

O seguinte código VBA pode ajudá-lo a selecionar as colunas com base em um nome de cabeçalho específico. Por favor, siga estas instruções:

1. Pressione e segure as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole o seguinte código na Janela do Módulo.

Código VBA: Selecionar 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

Observação: No código acima, A1:P1 é o intervalo de cabeçalhos dos quais você deseja selecionar colunas, e “Nome” no script xStr = "Nome" é o nome do cabeçalho com base no qual você deseja selecionar colunas. Altere-os conforme necessário.

3. Após copiar e colar o código, pressione a tecla F5 para executar este código, e todas as colunas com o nome do cabeçalho específico serão selecionadas imediatamente, veja a captura de tela: