Como converter uma string de texto separada por vírgulas em uma lista ou linhas no Excel?
Supondo que você tenha uma lista de valores de células separados por vírgulas, agora, você precisa converter essas strings de texto separadas por vírgulas em várias linhas ou uma coluna, como mostrado a seguir. Como dividir vários valores de células em linhas com base em delimitador de vírgula de uma só vez no Excel?
Converter string de texto separada por vírgula em linhas com código VBA
Converta strings de texto separadas por vírgulas em linhas com o Kutools para Excel
Converter string de texto separada por vírgula em linhas com código VBA
O seguinte código VBA pode ajudá-lo a converter vários valores de células separados por vírgulas em uma coluna. Faça o seguinte:
1. Segure o Alt + F11 chaves no Excel, e abre o Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Móduloe cole a macro a seguir no Módulo Janela.
Código VBA: converter string de texto separada por vírgulas em linhas ou lista
Sub RedistributeCommaDelimitedData()
'Updateby Extendoffice
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 aberta, selecione o intervalo de dados que você deseja converter, consulte a captura de tela:
4. E clique em OK, na caixa de diálogo a seguir, especifique uma célula em que deseja produzir o resultado, consulte a captura de tela:
5. Clique OK botão, os valores de célula separados por vírgula selecionados foram convertidos em uma lista de linhas. Veja a imagem:
Converta strings de texto separadas por vírgulas em 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 de células separados por vírgula em várias linhas ou colunas com base no delimitador de vírgula conforme necessário.
| Kutools for Excel : com mais de 300 suplementos úteis do Excel, grátis para testar sem limitação em 30 dias. |
Depois de instalar Kutools for Excel, siga os seguintes passos:
1. Selecione os valores da célula que deseja converter em linhas com base no separador de vírgula.
2. Então clique Kutools > Unir e dividir > Dividir células, veja a captura de tela:
3. No Dividir células caixa de diálogo, selecione Dividir em linhas opção sob o Formato seção, e então da Especifique um separador seção, cheque Outros caixa de seleção e digite a vírgula na caixa de texto, veja a captura de tela:
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:
5. E, em seguida, clique em Ok botão, as células separadas por vírgula foram divididas em várias linhas com base no delimitador de vírgula, consulte a captura de tela:
Clique para saber mais sobre este recurso Split Cells ...
Baixe e teste grátis Kutools para Excel agora!
Demonstração: converta strings de texto separadas por vírgulas em linhas com o Kutools para Excel
Artigos relacionados:
Como dividir células em várias colunas ou linhas por retorno de carro?
Como dividir os valores das células em várias colunas no Excel?
Melhores ferramentas de produtividade de escritório
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...
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!
