Excel: Como dividir texto delimitado em linhas

Digamos que aqui está uma tabela com três colunas em uma planilha, a primeira lista os níveis de preços, a segunda lista os nomes das frutas com vírgulas delimitadas nas células e a terceira coluna lista os preços das frutas. O trabalho é dividir os nomes de frutas delimitados em linhas e repetir os níveis de preços e linhas de preços relacionados conforme a captura de tela abaixo:

Aqui apresentamos dois métodos para resolver este trabalho.

Dividir texto delimitado em linhas usando VBA

Divida o texto delimitado em linhas usando Power Query

Aqui está um código VBA que pode dividir rapidamente o texto delimitado em linhas.

1. Pressione outro + F11 chaves para habilitar o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção guia> Módulo para criar um novo módulo em branco.

3. Copie e cole o código abaixo no módulo em branco.

VBA: dividir texto delimitado em linhas

Public Sub SplitTextInCellsToRows()
'UpdatebyExtendoffice20220622
    Dim xSRg, xIptRg, xCrRg, xRg As Range
    Dim xSplitChar As String
    Dim xArr As Variant
    Dim xFNum, xFFNum, xRow, xColumn, xNum As Integer
    Dim xWSh As Worksheet
    Set xSRg = Application.InputBox("Select a range:", "Kutools for Excel", , , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    xSplitChar = Application.InputBox("Type delimiter:", "Kutools for Excel", , , , , , 2)
    If xSplitChar = "" Then Exit Sub

    Application.ScreenUpdating = False
    xRow = xSRg.Row
    xColumn = xSRg.Column
    Set xWSh = xSRg.Worksheet
    For xFNum = xSRg.Rows.Count To 1 Step -1
        
        Set xRg = xWSh.Cells.Item(xRow + xFNum - 1, xColumn)
        Debug.Print xRg.Address
        xArr = Split(xRg, xSplitChar)
        For xFFNum = LBound(xArr) To UBound(xArr)
            xRg.EntireRow.Copy
            xRg.Offset(1, 0).EntireRow.Insert Shift:=xlShiftDown
            xRg.Worksheet.Cells(xRow + xFNum, xColumn) = xArr(xFFNum)
        Next
        xRg.EntireRow.Delete
    Next
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

4. Pressione F5 tecla para clicar no botão executar  para ativar o código, uma caixa de diálogo aparece para você selecionar a coluna que exclui o cabeçalho que contém o texto delimitado necessário para ser dividido em linhas. Clique OK.

5. Em seguida, a segunda caixa de diálogo aparece para inserir o delimitador que você usa. Aqui digita vírgula (,). Clique OK.

Agora os textos delimitados foram divididos em linhas e outras colunas relacionadas foram repetidas.

  O VBA irá alterar os dados originais, é melhor você salvar uma cópia antes.

Se você estiver no Excel 2013 ou versões posteriores, o Power Query será uma boa escolha para resolver este trabalho.

1. Selecione o intervalo de dados, para clicar Data > Da tabela/intervalo.

2. No popping Criar a tabela diálogo, verificar Minha tabela tem cabeçalhos conforme necessário e clique OK.

Em seguida, o Power Query editor janela é exibida e os dados foram mostrados nela.

3. Clique na coluna em que deseja dividir os textos delimitados em linhas e clique em Transformar guia> Coluna dividida > Por delimitador.

Ou você também pode selecionar a coluna e clicar com o botão direito do mouse no cabeçalho da coluna para escolher esse recurso no menu de contexto.

4. No Dividir Coluna por Delimitador janela, escolha o delimitador conforme necessário na Selecione ou insira o delimitador seção, em seguida, escolha Cada ocorrência do delimitador opção e, em seguida, expanda opções avançadas seção para escolher Linhas opção. Clique OK.

Agora os textos delimitados foram divididos em linhas.

5. Em seguida, feche a janela, uma caixa de diálogo aparece, clique Guarda botão.

Em seguida, uma nova planilha será criada com a tabela.

---

As melhores ferramentas de produtividade para escritório

O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

• Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
• Mesclar células / linhas / colunas e manutenção de dados; Dividir o conteúdo das células; Combine Linhas Duplicadas e Soma / Média... Evite células duplicadas; Comparar intervalos...
• Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
• Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
• Fórmulas favoritas e de inserção rápida, Intervalos, gráficos e imagens; Criptografar células com senha; Criar lista de discussão e enviar emails ...
• Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
• Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
• Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
• Agrupamento de tabela dinâmica por número da semana, dia da semana e mais ... Mostrar células desbloqueadas, bloqueadas por cores diferentes; Destacar células que possuem fórmula / nome...

Leia mais... Full Features 30-Day Free Trial ... Compra... 

---

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!

Leia mais... Full Features 30-Day Free Trial ... Compra...