Como Dividir o Conteúdo de uma Célula em Várias Linhas no Excel (Cenários + Comparação de Ferramentas)

Dica: Você pode alterar o delimitador "," para ";" ou "|" dependendo de como seus dados estão separados.

Passo 2. Pressione a tecla Enter.

Método 3: Power Query – Dividir e Expandir Linhas (Microsoft 2016 e versões posteriores)

O Power Query é ideal para operações estruturadas e repetíveis. É poderoso, atualizável e ótimo para transformações de dados em lote.

Indicado para: Ambos os cenários 1 (Dividir Apenas a Célula-Alvo) e 2 (Dividir Célula e Manter Outros Dados das Colunas)

Passos: Tome o Cenário 1 (Dividir Apenas a Célula-Alvo) como Exemplo

Passo 1. Selecione seu intervalo, vá em Dados > Obter & Transformar > De Tabela/Intervalo.

um 

Passo 2. Na janela Criar Tabela, clique em OK. (Se o intervalo selecionado tiver cabeçalhos, marque Minha tabela tem cabeçalhos.)

Passo 3. No Editor do Power Query, use Dividir Coluna por Delimitador.

Passo 4. Selecione ou insira o delimitador, e então clique em Avançado para expandir as opções, selecione Dividir em Linhas, depois clique em OK.

Passo 5. Selecione Fechar & Carregar > Fechar & Carregar ou Fechar & Carregar Em.

Os mesmos passos se aplicam ao Cenário 2 (Dividir Células Enquanto Preserva Outros Dados das Colunas) - vejamos os resultados.

O intervalo alvo de células:

Resultado:

Nota: Na janela do Editor do Power Query, selecione apenas a coluna-alvo que você deseja dividir em linhas, depois clique em Por Delimitador em Dividir Coluna.

Dica: Adicione etapas Trim e Clean para corrigir espaços em branco ou caracteres especiais.

Método 4: Plugin Kutools – Cliques para Divisão

Se você frequentemente divide células e prefere uma solução baseada em GUI, o Kutools é uma excelente ferramenta. Ele simplifica operações complexas em poucos cliques.

Indicado para: Ambos os cenários 1 (Dividir Apenas a Célula-Alvo) e 2 (Dividir Célula e Manter Outros Dados das Colunas)

Passos: Cenário 1 (Dividir Apenas a Célula-Alvo)

Passo 1. Selecione a célula-alvo.

Passo 2. Vá em Kutools > Mesclar & Dividir > Dividir Células.

Passo 3. Escolha Dividir em Linhas e defina o delimitador. Clique em OK.

Passo 4. Selecione uma célula de destino. Clique em OK.

Passos: Cenário 2 (Dividir Célula e Manter Outros Dados das Colunas)

Passo 1. Selecione a coluna que deseja dividir em linhas.

Passo 2. Vá em Kutools > Mesclar & Dividir > Dividir Dados em Linhas.

Passo 3. Defina o delimitador. Clique em OK.

Os mesmos passos se aplicam ao Cenário 2 (Dividir Células Enquanto Preserva Outros Dados das Colunas) - vejamos os resultados.

O intervalo alvo de células:

Resultado:

Nota: A versão Trial de 30 dias oferece toda a funcionalidade para teste.

Método 5: Script VBA – Controle Total Personalizado

Para usuários com conhecimento de programação, o VBA oferece flexibilidade total. Você pode personalizar scripts para atender exatamente ao layout dos seus dados e às regras de negócios.

Indicado para: Ambos os cenários 1 (Dividir Apenas a Célula-Alvo) e 2 (Dividir Célula e Manter Outros Dados das Colunas)

Passos:

Passo 1. Pressione Alt + F11 para abrir o editor VBA.

Passo 2. Clique em Inserir > Módulo.

Passo 3. Copie e cole o código VBA abaixo.

Cenário 1 Dividir Apenas a Célula-Alvo

'Update by Extendoffice
Sub SplitCellToRows_Simple()
    Dim InputCell As Range
    Dim Values As Variant
    Dim i As Long

  
    Set InputCell = Range("A1") ' change A1 to your target cell

    Values = Split(InputCell.Value, ",") 
    For i = 0 To UBound(Values)
        InputCell.Offset(i, 1).Value = Trim(Values(i))
    Next i
End Sub

Cenário 2 Dividir Célula e Manter Outros Dados das Colunas

'Update by Extendoffice
Sub SplitRowsWithOtherColumns()
    Dim ws As Worksheet
    Dim LastRow As Long, i As Long
    Dim arr As Variant, j As Long
    Dim SplitVals As Variant
    Dim CurrentRow As Long

    Set ws = ActiveSheet
    LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    For i = LastRow To 2 Step -1
        If InStr(ws.Cells(i, 2).Value, ",") > 0 Then
            SplitVals = Split(ws.Cells(i, 2).Value, ",")

            For j = UBound(SplitVals) To 1 Step -1
                ws.Rows(i + 1).Insert Shift:=xlDown
                ws.Cells(i + 1, 1).Value = ws.Cells(i, 1).Value
                ws.Cells(i + 1, 2).Value = Trim(SplitVals(j))
            Next j

            ws.Cells(i, 2).Value = Trim(SplitVals(0))
        End If
    Next i
End Sub

Nota: Este script VBA está configurado para funcionar especificamente quando seus dados estão localizados nas colunas A a B e os valores a serem divididos estão na coluna B.

💡Dicas:

• Sempre faça backup dos seus dados antes de executar uma macro.
• Substitua "," no script pelo seu delimitador real (ex.: ";" para ponto e vírgula ou "|" para caracteres pipe) para corresponder ao formato dos seus dados.

Problemas Comuns

• Linhas ou colunas em branco: Geralmente causado por delimitadores finais ou espaços ocultos.
• Erros de células mescladas: Desmesclar células antes de começar.
• Power Query não atualizando: Lembre-se de clicar em Atualizar após modificar os dados de origem.
• Delimitador incorreto: Um erro de ponto e vírgula vs vírgula pode comprometer todo o resultado.

Artigos Relacionados:

• Utilitário Transpor Intervalo: Converta facilmente múltiplas linhas em colunas e vice-versa no Excel
• Ferramenta Conversor de Unidades: Converta rapidamente números decimais para binário/octal/hexadecimal ou vice-versa