Como dividir por delimitador e transpor células no Excel?

Neste artigo, apresento as maneiras de dividir um intervalo por delimitador específico e, em seguida, transpô-lo no Excel como mostrado abaixo na captura de tela. Se você estiver interessado nesta tarefa, consulte os detalhes abaixo.

Dividir e transpor com VBA

Dividir e transpor com Kutools para Excel

---

Dividir e transpor com VBA

Não há uma maneira direta de dividir e transpor dados por um delimitador específico, mas posso apresentar um código VBA para ajudá-lo a resolver esse problema rapidamente.

1. Pressione Alt + F11 chaves para mostrar Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole o código abaixo no novo Módulo janela.

VBA: Dividir e Transpor

Sub Vertical()
'UpdatebyExtendoffice20161125
    Dim i As Long, strTxt As String
    Dim startP As Range
    Dim xRg As Range, yRg As Range
    On Error Resume Next
    Set xRg = Application.InputBox _
    (Prompt:="Range Selection...", _
    Title:="Kutools For Excel", Type:=8)
    i = 1
    Application.ScreenUpdating = False
    For Each yRg In xRg
        If i = 1 Then
            strTxt = yRg.Text
            i = 2
        Else
            strTxt = strTxt & "," & yRg.Text
        End If
    Next
    Application.ScreenUpdating = True
    Set startP = Application.InputBox _
    (Prompt:="paste range...", _
    Title:="Kutools For Excel", Type:=8)
    ary = Split(strTxt, ",")
    i = 1
    Application.ScreenUpdating = False
    For Each a In ary
        startP(i, 1).Value = a
        i = i + 1
    Next a
    Application.ScreenUpdating = True
End Sub

3. Pressione F5 para executar o código, uma caixa de diálogo é exibida para você selecionar um intervalo para dividir e transpor.

4. Clique OK. Uma caixa de diálogo é exibida para selecionar um local para colocar os dados.

5. Clique OK, e a seleção foi dividida e transposta por vírgula.

Observação: no código, a vírgula no strTxt & "," e a  ary = Split(strTxt, ","") são o delimitador no qual você dividirá os dados, você pode alterá-los conforme necessário.

---

Dividir e transpor com Kutools para Excel

Com o Kutools for Excel, você pode aplicar seu Dividir células primeiro para dividir as células por delimitador e, em seguida, aplicar o Faixa de transformação utilitário para converter as células em uma coluna.

Depois de instalar Kutools para Excel, faça o seguinte :(Baixe grátis o Kutools para Excel agora!)

1. Selecione as células que deseja dividir e clique em Kutools > Unir e dividir > Dividir células. Veja a imagem:

2. No Dividir células diálogo, verificar Dividir em colunas opção e, em seguida, especifique o delimitador no qual deseja dividir com base, clique em Ok. E selecione uma célula em branco para colocar o resultado no segundo Dividir células diálogo. Veja a imagem:

3. Clique OK, as células foram divididas em colunas e clique em Kutools > Variação > Faixa de transformação. Veja a imagem:

4. No Faixa de transformação diálogo, verificar Faixa para coluna única, clique em Oke selecione uma célula para colocar o resultado. Veja a imagem:

5. Clique OK, agora o intervalo foi transposto para uma coluna.

Gorjeta. Se você quiser ter um teste gratuito do Dividir células e a Faixa de transformação funções, acesse gratuitamente o Kutools para Excel primeiro e, em seguida, aplique a operação de acordo com as etapas acima.