Como transpor rapidamente uma lista de endereços de linhas para colunas no Excel?

Por exemplo, você tem uma lista única contendo nomes e endereços, e precisa convertê-la em colunas, conforme mostrado na captura de tela abaixo. O Excel não possui uma função interna para isso, mas este artigo apresenta alguns métodos rápidos para resolver o problema.

Transpor lista de endereços por VBA

Transpor lista de endereços pelo Kutools para Excel

Transpor lista de endereços por VBA

Para transpor uma lista de endereços de linhas para colunas, você pode aplicar um código VBA.

1. Abra a planilha que contém os dados que deseja transpor e pressione as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole o seguinte código de macro no Módulo. Veja a captura de tela:

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. Pressione F5 para executar o código, e uma caixa de diálogo aparecerá para lembrá-lo de selecionar o intervalo de dados que deseja usar. Veja a captura de tela:

4. Clique OK, depois, na próxima caixa de diálogo que aparece, selecione uma célula para colocar o resultado transposto. Veja a captura de tela:

5. Clique OK. Agora, a lista única foi transposta em colunas.

Transpor lista de endereços pelo Kutools para Excel

Se você tiver o Kutools para Excel, poderá aplicar o recurso Transformar Intervalo para transpor rapidamente a lista de endereços em colunas.

1. Selecione os dados que deseja transpor, clique Kutools > Intervalo > Transformar Intervalo. Veja a captura de tela:

2. Na caixa de diálogo que aparece, marque a opção Coluna Única para Intervalo no campo Tipo de Transformação e marque a opção Valor Fixo e digite o número necessário na caixa de texto à direita. Veja a captura de tela:

3. Clique Ok, e escolha uma célula onde deseja colocar o resultado transposto. Veja a captura de tela:

4. Clique OK. A lista de endereços foi transposta.

Demonstração: Transpor lista de endereços pelo Kutools para Excel