Como transpor rapidamente a lista de endereços de linhas para colunas no Excel?
Por exemplo, há uma única lista combinada com nomes e endereços, e você precisa converter a lista em colunas como mostrado abaixo na captura de tela. Não há nenhuma função incorporada no Excel para lidar com isso, mas, neste artigo, posso apresentar alguns truques para resolver isso rapidamente.
Transpor lista de endereços por VBA
Transpor lista de endereços do Kutools para Excel
Transpor lista de endereços por VBA
Para transpor a lista de endereços de linhas para colunas, você pode aplicar um código VBA.
1. Ative a planilha que contém os dados que deseja transpor e pressione Alt + F11 chaves para abrir Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Móduloe cole o código da macro abaixo no Módulo. Veja a imagem:
VBA: lista de endereços de transposição
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. Pressione F5 para executar o código e uma caixa de diálogo é exibida para lembrá-lo de selecionar o intervalo de dados que deseja usar. Veja a imagem:
4. Clique OKe, em seguida, na próxima caixa de diálogo pop-up, selecione uma célula para colocar o resultado transposto. Veja a imagem:
5. Clique OK. Agora, a lista única foi transposta em colunas.
Transpor lista de endereços do Kutools para Excel
Se você tem Kutools for Excel, você pode aplicar o Faixa de transformação recurso para transpor rapidamente a lista de endereços para colunas.
Kutools for Excel, com mais de 300 funções úteis, tornam seus trabalhos mais fáceis. |
Depois de instalar Kutools para Excel, faça o seguinte: (Baixe gratuitamente o Kutools para Excel agora!)
1. Selecione os dados que deseja transpor e clique em Kutools > Variação > Faixa de transformação. Veja a imagem:
2. Na caixa de diálogo que aparece, verifique Coluna única para intervalo opção em Tipo de transformação seção, e verifique Valor fixo opção e digite o número que você precisa na caixa de texto certa. Veja a imagem:
3. Clique Oke selecione uma célula para gerar o resultado. Veja a imagem:
4. Clique OK. A lista de endereços foi transposta.
Demo
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!