Como transpor rapidamente uma lista de endereços de linhas para colunas no Excel?
Por exemplo, tem uma única lista com nomes e endereços e precisa convertê-la em colunas, tal como mostrado na captura de ecrã abaixo. O Excel não inclui uma função incorporada para esta tarefa, mas este artigo apresenta alguns métodos rápidos para a resolver.
Transpor Lista de Endereços com VBA
Transpor Lista de Endereços com Kutools para Excel
Transpor Lista de Endereços com VBA
Para transpor a Lista de Endereços de linhas para colunas, pode utilizar um código VBA.
1. Abra a folha que contém os dados que pretende transpor e prima as teclas Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e cole o código de macro seguinte no Módulo. Veja a captura de ecrã:
VBA: Transpor Lista de Endereços
Sub fixText()
'UpdatebyExtendoffice0170905
Dim I As Integer
Dim K As Integer
Dim xRgS As Range
Dim xRgD As Range
Dim xAddress As String
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRgS = Application.InputBox("Select a range to transpose:", "KuTools For Excel", xAddress, , , , , 8)
If xRgS Is Nothing Then Exit Sub
Set xRgD = Application.InputBox("Select a cell to place result", "KuTools For Excel", , , , , , 8)
If xRgD Is Nothing Then Exit Sub
xRgD(1).Offset(, 0).Value = "Name"
xRgD(1).Offset(, 1).Value = "Address"
xRgD(1).Offset(, 2).Value = "City/State"
K = 1
For I = 1 To xRgS.Rows.Count
xRgD(1).Offset(K).Value = xRgS(I).Value
xRgD(1).Offset(K, 1).Value = xRgS(I + 1).Value
xRgD(1).Offset(K, 2).Value = xRgS(I + 2).Value
K = K + 1
I = I + 2
Next
End Sub
3. Prima a tecla F5 para executar o código e surge uma caixa de diálogo a solicitar que selecione o intervalo de dados que pretende utilizar. Veja a captura de ecrã:
4. Clique em OK e, na caixa de diálogo seguinte, selecione uma célula para colocar o resultado transposto. Veja a captura de ecrã:
5. Clique em OK. Agora, a lista única foi transposta para colunas.
Transpor Lista de Endereços com Kutools para Excel
Se tiver o Kutools para Excel, pode utilizar a funcionalidade Transformar Intervalo para transpor rapidamente uma lista de endereços em colunas.
1. Selecione os dados que pretende transpor e clique em Kutools > Intervalo > Transformar Intervalo. Veja a captura de ecrã:
2. Na caixa de diálogo que surge, marque a opção Coluna Única para Intervalo na secção Tipo de Transformação e, em seguida, selecione também a opção Valor Fixo, introduzindo o número pretendido na caixa de texto à direita. Veja a captura de ecrã:
3. Clique em Ok e escolha uma célula onde pretende colocar o resultado transposto. Veja a captura de ecrã:
4. Clique em OK. A Lista de Endereços foi transposta.
Kutools para Excel– Potencie o Excel com mais de 300 ferramentas essenciais, tornando o seu trabalho mais rápido e fácil, e aproveite as funcionalidades de IA para um processamento de dados mais inteligente e uma maior produtividade.Obtenha Já
Demonstração: Transpor Lista de Endereços com Kutools para Excel
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos