Ir para o conteúdo principal

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.
doc spliy transpor 1

Dividir e transpor com VBA

Dividir e transpor com Kutools para Excel


seta azul bolha direita 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.
doc spliy transpor 2

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

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

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


seta azul bolha direita 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.

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 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:
doc spliy transpor 5

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:
doc spliy transpor 6

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

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:
doc spliy transpor 8

5. Clique OK, agora o intervalo foi transposto para uma coluna.
doc spliy transpor 9

Gorjeta. Se você quiser ter um teste gratuito do Dividir células e 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.

Melhores ferramentas de produtividade de escritório

🤖 Assistente de IA do Kutools: Revolucionar a análise de dados com base em: Execução Inteligente   |  Gerar Código  |  Crie fórmulas personalizadas  |  Analise dados e gere gráficos  |  Invocar funções do Kutools...
Recursos mais comuns: Encontre, destaque ou identifique duplicatas   |  Excluir linhas em branco   |  Combine colunas ou células sem perder dados   |   Rodada sem Fórmula ...
Super pesquisa: VLookup de múltiplos critérios    VLookup de múltiplos valores  |   VLookup em várias planilhas   |   Pesquisa Difusa ....
Lista suspensa avançada: Crie rapidamente uma lista suspensa   |  Lista suspensa de dependentes   |  Lista suspensa de seleção múltipla ....
Gerenciador de colunas: Adicione um número específico de colunas  |  Mover colunas  |  Alternar status de visibilidade de colunas ocultas  |  Compare intervalos e colunas ...
Recursos em destaque: Foco da Grade   |  Vista de Design   |   Grande Barra de Fórmula    Gerenciador de pastas de trabalho e planilhas   |  Biblioteca (Auto texto)   |  Data Picker   |  Combinar planilhas   |  Criptografar/Descriptografar Células    Enviar e-mails por lista   |  Super Filtro   |   Filtro Especial (filtro negrito/itálico/tachado...) ...
15 principais conjuntos de ferramentas12 Texto Ferramentas (Adicionar texto, Remover Personagens, ...)   |   50+ de cores Tipos (Gráfico de Gantt, ...)   |   Mais de 40 práticos Fórmulas (Calcule a idade com base no aniversário, ...)   |   19 Inclusão Ferramentas (Insira o código QR, Inserir imagem do caminho, ...)   |   12 Conversão Ferramentas (Números para Palavras, Conversão de moedas, ...)   |   7 Unir e dividir Ferramentas (Combinar linhas avançadas, Dividir células, ...)   |   ... e mais

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...

Descrição


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!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Is there a way to split data by row and transpose rows to column at the same time?
This comment was minimized by the moderator on the site
Hi, E, please describe your problem with more details, better provide some examples.
This comment was minimized by the moderator on the site
You wrote: Note: in the code, the comma in the aray = Split(strTxt, ",") is the delimiter you will split data based on, you can change it as you need.

Extra action:
also change delimter "," in code section:

<Else
strTxt = strTxt & "," & yRg.Text
End If>

Change "," to (for example ";")
This comment was minimized by the moderator on the site
Hi, Richard Hahlen, thanks for your remind. I have updated the notice.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations