Dica: outros idiomas são traduzidos pelo Google. Você pode visitar o English versão deste link.
Entrar
x
or
x
x
Registre-se
x

or

Como converter seqüência de texto separada por vírgula para lista ou linhas no Excel?

doc converte valores de vírgula para a lista 1

Supondo que você tenha uma lista de valores de células separados por vírgulas, você precisa converter essas seqüências de texto separadas por vírgulas para várias linhas ou uma coluna como a próxima captura de tela mostrada. Como dividir múltiplos valores de células em linhas com base em delimitador de vírgula ao mesmo tempo no Excel?

Converta uma seqüência de texto separada por vírgulas para linhas com código VBA

Converta uma seqüência de texto separada por vírgulas para linhas com o Kutools para Excel


Converta uma seqüência de texto separada por vírgulas para linhas com código VBA


O código VBA a seguir pode ajudá-lo a converter múltiplos valores de célula separados por vírgula para uma coluna, faça o seguinte:

1. Mantenha pressionado o Alt + F11 chaves no Excel, e abre a Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole a seguinte macro no Módulo Janela.

Código VBA: Converta uma seqüência de texto separada por vírgulas para linhas ou lista

Sub RedistributeCommaDelimitedData()
'Updateby Extendoffice 2015924
    Dim xArr() As String
    Dim xAddress As String
    Dim Rg As Range
    Dim Rg1 As Range
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set Rg = Application.InputBox("please select the data range:", "Kutools for Excel", xAddress, , , , , 8)
    If Rg Is Nothing Then Exit Sub
    Set Rg = Application.Intersect(Rg, Rg.Parent.UsedRange)
    If Rg Is Nothing Then Exit Sub
    Set Rg1 = Application.InputBox("please select output cell:", "Kutools for Excel", , , , , , 8)
    If Rg1 Is Nothing Then Exit Sub
    xArr = Split(Join(Application.Transpose(Rg.Value), ","), ",")
    Rg1.Resize(UBound(xArr) + 1) = Application.Transpose(xArr)
    Rg1.Parent.Activate
    Rg1.Resize(UBound(xArr) + 1).Select
End Sub

3. Então aperte F5 chave para executar este código, na caixa de diálogo pop-out, selecione o intervalo de dados que deseja converter, veja a captura de tela:

doc converte valores de vírgula para a lista 2

4. E clique em OK, na caixa de diálogo a seguir, especifique uma célula onde deseja exibir o resultado, veja a captura de tela:

doc converte valores de vírgula para a lista 3

5. Clique OK , os valores das células separados separadas por vírgulas foram convertidos em uma lista de linhas. Ver captura de tela:

doc converte valores de vírgula para a lista 4


Converta uma seqüência de texto separada por vírgulas para linhas com o Kutools para Excel

Se você tem Kutools for Excel, Com o seu Dividir células utilitário, você pode dividir rapidamente os valores das células separadas por vírgulas em várias linhas ou colunas com base no delimitador de vírgulas, conforme você precisa.

Kutools for Excel : com mais de 300 complementos Excel úteis, grátis para tentar sem limitação em dias 60.

Depois de instalar Kutools for Excel, faça o seguinte com as seguintes etapas:

1. Selecione os valores de célula que deseja converter para linhas com base no separador de vírgulas.

2. Então clique Kutools > Texto > Dividir células, veja a captura de tela:

doc converte valores de vírgula para a lista 5 5

3. No Dividir células caixa de diálogo, selecione Dividido em linhas opção sob o Tipo seção, e depois do Especifique um separador seção, cheque Outro caixa de seleção e, em seguida, insira a vírgula na caixa de texto, veja a captura de tela:

doc converte valores de vírgula para a lista 6 6

4. Então clique Ok, e outra caixa de diálogo aparecerá para lembrá-lo de selecionar uma célula para colocar o resultado, veja a captura de tela:

doc converte valores de vírgula para a lista 7

5. E, em seguida, clique em Ok , as células separadas por vírgulas foram divididas em várias linhas com base no delimitador de vírgulas, veja a captura de tela:

doc converte valores de vírgula para a lista 8

Clique para saber mais sobre esse recurso Split Cells ...

Faça o download e teste grátis Kutools for Excel Now!


Demo: Converta uma seqüência de texto separada por vírgulas para linhas com o Kutools for Excel

Kutools for Excel: com mais de 200 complementos úteis do Excel, grátis para tentar sem limitação nos dias 60. Baixe e teste grátis agora!


Artigos relacionados:

Como dividir células em várias colunas ou linhas por retorno de carro?

Como dividir valores de células em várias colunas no Excel?


Kutools for Excel - A Melhor Ferramenta de Produtividade no Escritório Aumenta Sua Produtividade em 80%

  • armadilha para peixes: Inserir rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de endereços e enviar e-mails ...
  • Bar Super Fórmula (facilmente editar várias linhas de texto e fórmula); Layout de leitura (leia e edite facilmente grandes números de células); Colar para intervalo filtrado...
  • Mesclar células / linhas / colunas sem perder dados; Conteúdo de células divididas; Combinar linhas / colunas duplicadas... Prevenir Células Duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Exclusivo Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros de trabalho; Seleção aleatória ...
  • Cópia exata Múltiplas Células sem alterar a referência da fórmula; Criar automaticamente referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • 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 (salve e aplique 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 ...
  • Combinar pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Dividir dados em várias planilhas; Lote Converter xls, xlsx e PDF...
  • Mais de recursos poderosos do 300. Suporta Office / Excel 2007-2019 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos Avaliação gratuita de um dia de 60.
kte tab 201905

A guia Office traz a interface com guias para o Office e torna seu trabalho muito mais fácil

  • Ativar edição e leitura com guias no 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!
fundo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    eviakhan · 2 years ago
    update to work for a single input cell (mentioned by Sid posted before me). Probably a way to do this for both scenarios, but this worked for me, I had the same issue.

    Sub RedistributeCommaDelimitedData_singleCell()

    'Updateby Extendoffice 201592

    Dim xArr() As String

    Dim xAddress As String

    Dim Rg As Range

    Dim Rg1 As Range

    On Error Resume Next

    xAddress = Application.ActiveWindow.RangeSelection.Address

    Set Rg = Application.InputBox("please select the data range:", "Kutools for Excel", xAddress, , , , , 8)

    If Rg Is Nothing Then Exit Sub

    Set Rg = Application.Intersect(Rg, Rg.Parent.UsedRange)

    If Rg Is Nothing Then Exit Sub

    Set Rg1 = Application.InputBox("please select output cell:", "Kutools for Excel", , , , , , 8)

    If Rg1 Is Nothing Then Exit Sub



    ' xArr = Split(Join(Application.Transpose(Rg.value), ","), ",") -------- need this if you have multiple input cells in your input range (Rg)

    ' replace with this for single input cell for Rg:

    xArr = Split(Rg.value, ",")

    Rg1.Resize(UBound(xArr) + 1) = Application.Transpose(xArr)

    Rg1.Parent.Activate

    Rg1.Resize(UBound(xArr) + 1).Select



    End Sub
  • To post as a guest, your comment is unpublished.
    Sid · 2 years ago
    Hi,
    I have a single row but this formula do not work for single row while it works for multiple rows could you guide on that would be a great help
    Thanks