Como dividir valores de células verticalmente no Excel?
No Excel, você pode aplicar o Texto para colunas recurso para dividir os valores da célula em várias colunas horizontalmente, mas não ajuda você a dividir o conteúdo da célula em várias linhas verticalmente. E neste artigo, vou falar sobre algumas maneiras rápidas de dividir os valores das células em linhas verticalmente por separador específico no Excel.
Divida os valores das células em linhas verticalmente por separador com código VBA
Divida os valores das células em linhas verticalmente por separador com o Kutools para Excel
Divida os valores das células em linhas verticalmente por separador com código VBA
O código VBA a seguir pode ajudá-lo a dividir os valores das células em linhas verticalmente por qualquer separador que desejar. Faça o seguinte:
1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Móduloe cole o seguinte código no Módulo Janela.
Código VBA: divida os valores das células em linhas verticalmente por separador específico
Sub splitvertically()
'updatebyExtendoffice
Dim xRg As Range
Dim xOutRg As Range
Dim xCell As Range
Dim xTxt As String
Dim xStr As String
Dim xOutArr As Variant
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xOutRg = Application.InputBox("please select output cell:", "Kutools for Excel", , , , , , 8)
If xOutRg Is Nothing Then Exit Sub
For Each xCell In xRg
If xStr = "" Then
xStr = xCell.Value
Else
xStr = xStr & ";" & xCell.Value
End If
Next
xOutArr = VBA.Split(xStr, ";")
xOutRg.Range("A1").Resize(UBound(xOutArr) + 1, 1) = Application.WorksheetFunction.Transpose(xOutArr)
End Sub
3. Então aperte F5 para executar este código, e uma caixa de prompt aparecerá para lembrá-lo de selecionar os valores da célula que deseja dividir verticalmente, veja a captura de tela:
4. E, em seguida, clique em OK botão, outra caixa aparecerá para lembrá-lo de selecionar uma célula para colocar o resultado, veja a captura de tela:
5. Clique OK botão, e os valores das células foram divididos em uma lista por um separador, veja a captura de tela:
Note: No código acima, você pode alterar o ponto e vírgula ; a quaisquer outros delimitadores de que você precisa.
Divida os valores das células em linhas verticalmente por separador com o Kutools para Excel
Kutools for Excel'S Dividir células recurso é um utilitário poderoso, ele pode ajudá-lo a dividir os valores das células em várias colunas ou linhas por quaisquer separadores 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, faça o seguinte:
1. Selecione as células que deseja dividir em linhas pelo delimitador específico.
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 sob a Formato seção e, em seguida, verifique Outros do Dividido por seção e insira o separador no qual deseja dividir os valores das células, consulte a captura de tela:
4. E, em seguida, clique em Ok botão, na caixa que aparece, selecione uma célula para gerar o resultado, veja a captura de tela:
5. E clique em OK botão, os valores das células foram divididos em linhas com base no separador específico, conforme mostrado a seguir:
Baixe e teste grátis Kutools para Excel agora!
Demonstração: divida os valores das células em linhas verticalmente por separador com o Kutools para 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!