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:
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
