Como dividir valores de células verticalmente no Excel?
Ao trabalhar no Excel, você pode encontrar situações em que vários valores em uma única linha ou várias linhas precisam ser convertidos em uma lista vertical. Isso é especialmente útil quando os dados estão armazenados em formato horizontal, mas precisam ser processados ou analisados em formato de coluna.
Este guia abordará três métodos eficientes para converter valores de células verticalmente:
Dividir valores de células em linhas verticalmente no Excel
- Usando uma Fórmula (Excel 365) – Ideal para transformações dinâmicas e automáticas
- Usando Kutools para Excel – Uma solução rápida e fácil com uma ferramenta especializada para todas as versões do Excel
- Usando Código VBA – Ideal para automatizar o processo para todas as versões do Excel
Divida valores de células em linhas verticalmente por uma Fórmula (Excel 365)
Se você tiver o Excel 365, poderá usar as funções TEXTSPLIT, TEXTJOIN e TRANSPOSE para converter valores de células verticalmente sem esforço manual.
Por favor, copie e cole a seguinte fórmula em uma célula em branco e pressione a tecla "Enter". O Excel distribuirá automaticamente os dados em várias linhas, veja a captura de tela:
=TRANSPOSE(TEXTSPLIT(TEXTJOIN(";", TRUE, A1:A4), ";"))
- TEXTJOIN(";", VERDADEIRO, A1:A4): Une o texto nas células A1 a A4 em uma única string, separada por ponto e vírgula (;).
- TEXTSPLIT(...): Divide a string combinada novamente em valores separados usando o ponto e vírgula como delimitador.
- TRANSPOSE(...): Converte a lista vertical resultante de valores em uma linha horizontal (ou vice-versa, dependendo da orientação original).
✅ Prós:
- ✔ Atualizações Dinâmicas: Se os dados de origem mudarem, a fórmula atualiza automaticamente os resultados.
- ✔ Sem Esforço Manual: Elimina a necessidade de divisão manual repetitiva.
- ✔ Delimitadores Personalizáveis: Substitua o ponto e vírgula (;) por qualquer delimitador (por exemplo, vírgula, espaço) para se ajustar aos seus dados.
❌ Contras:
- ✘ Disponível apenas no Excel 365, não funciona em versões anteriores do Excel.
Divida valores de células em linhas verticalmente pelo Kutools para Excel
Se você usa o Excel 2019 ou anterior, pode usar o "Kutools para Excel" – um poderoso complemento com ferramentas especializadas para transformar e gerenciar dados facilmente. Com seu recurso "Dividir Dados em Linhas", você pode converter valores de células verticalmente com base em qualquer delimitador de que precise.
Após instalar o "Kutools para Excel", faça o seguinte:
- Clique em "Kutools" > "Mesclar & Dividir" > "Dividir Dados em Linhas", veja a captura de tela:
- Na caixa de diálogo "Dividir Dados em Linhas", especifique as seguintes operações:
- Selecione as células que deseja dividir;
- Na seção "Delimitador", selecione o delimitador para definir como o conteúdo da célula deve ser dividido. Aqui, selecionarei "ponto e vírgula".
- Finalmente, clique no botão "OK".
Resultado: Os dados serão convertidos em uma coluna vertical.
✅ Prós:
- ✔ Funciona em todas as versões do Excel (2010, 2013, 2016, 2019, 2021, 365)
- ✔ Não é necessário usar fórmulas complexas ou codificação.
- ✔ Suporta uma ampla gama de delimitadores.
- ✔ O Kutools oferece mais de 300 ferramentas para manipulação de dados, economizando tempo em outras tarefas.
❌ Contras:
- ✘ Requer a instalação do Kutools
Divida valores de células em linhas verticalmente por código VBA
Para usuários avançados, o VBA fornece uma solução robusta para automatizar a divisão vertical de valores de células. O código VBA abaixo permite que você divida facilmente o conteúdo das células em linhas usando qualquer separador personalizado.
1. Pressione e segure as teclas "ALT" + "F11" para abrir a janela "Microsoft Visual Basic for Applications".
2. Clique em "Inserir" > "Módulo" e cole o seguinte código na janela "Módulo".
Código VBA: Divida valores de 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. Em seguida, pressione a tecla "F5" para executar este código, e uma caixa de prompt aparecerá para lembrá-lo de selecionar os valores das células que deseja dividir verticalmente, veja a captura de tela:
4. E depois clique no botão "OK", outra caixa aparecerá para lembrá-lo de selecionar uma célula para colocar o resultado, veja a captura de tela:
5. Clique no botão "OK" e os valores das células terão sido divididos em uma lista por um separador, veja a captura de tela:
✅ Prós:
- ✔ Automatiza o processo, economizando tempo
- ✔ Funciona em todas as versões do Excel
- ✔ Pode ser personalizado para diferentes delimitadores
❌ Contras:
- ✘ Requer conhecimento básico de programação VBA
- ✘ Um pouco complexo para iniciantes
Converter valores de células verticalmente no Excel pode ser alcançado por meio de vários métodos, cada um com suas próprias vantagens. Ao entender esses métodos, você pode escolher a melhor abordagem para suas necessidades específicas e otimizar seu fluxo de trabalho no Excel. Seja você um iniciante ou um usuário avançado, essas ferramentas e técnicas ajudarão você a lidar com os dados de forma mais eficaz e eficiente. Se você estiver interessado em explorar mais dicas e truques do Excel, nosso site oferece milhares de tutoriais para ajudá-lo a dominar o Excel.
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins