Como dividir o texto em colunas separadas por letras maiúsculas no Excel?
Supondo que você tenha uma gama de dados que deseja dividir o conteúdo da célula em colunas separadas pela letra maiúscula, conforme mostrado na captura de tela a seguir, você tem alguma boa ideia para resolver esse problema no Excel?
Divida o texto em colunas separadas por letra maiúscula com fórmulas
Divida o texto em colunas separadas por letra maiúscula com código VBA
Divida o texto em colunas separadas por letra maiúscula com o Kutools para Excel
Divida o texto em colunas separadas por letra maiúscula com fórmulas
Se houver apenas duas palavras em suas células, as fórmulas a seguir o ajudarão a terminar este trabalho. Faça o seguinte:
1. Insira esta fórmula de matriz: =LEFT(A2,SMALL(FIND(CHAR(ROW(INDIRECT("65:90"))),A2&"ABCDEFGHIJKLMNOPQRSTUVWXYZ"),2)-1) (A2 é a célula que você deseja dividir por letra maiúscula) em uma célula em branco adjacente aos seus dados e pressione Ctrl + Shift + Enter juntas para obter a primeira palavra, veja a captura de tela:
2. Em seguida, selecione C2 e arraste a alça de preenchimento para baixo até as células às quais deseja aplicar esta fórmula, todas as primeiras palavras do intervalo de células foram extraídas de uma vez, veja a captura de tela:
3. Continue inserindo outra fórmula: = SUBSTITUIR (A2,1, LEN (C2), "") (A2 é a célula que você deseja dividir e C2 é a célula que contém a primeira palavra que você retornou) na célula D2 e pressione Entrar chave para obter a segunda palavra, consulte a captura de tela:
4. Selecione a célula D2, arraste a alça de preenchimento até as células para obter a segunda palavra, e o conteúdo da célula do intervalo foi dividido em duas colunas pela letra maiúscula, veja a captura de tela:
Divida o texto em colunas separadas por letra maiúscula com código VBA
As fórmulas acima são aplicadas apenas ao valor da célula que contém duas palavras, se houver várias palavras em uma célula que precisam ser divididas, você pode adicionar espaços antes das letras maiúsculas e, em seguida, aplicar o Texto às Colunas para dividir o conteúdo da célula em colunas separadas por espaço.
Primeiro, aplique o código VBA para adicionar espaços antes da letra maiúscula para separar as palavras.
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: insira espaços antes de cada letra maiúscula em uma célula
Function SplitWords(ByVal Str As String) As String
'updateby Extendoffice 20151128
Dim I As Integer
SplitWords = Left(Str, 1)
For I = 2 To Len(Trim(Str))
If (Asc(Mid(Str, I, 1)) > 64) And _
(Asc(Mid(Str, I, 1)) < 91) And _
(Mid(Str, I - 1, 1) <> " ") Then _
SplitWords = SplitWords & " "
SplitWords = SplitWords & Mid(Str, I, 1)
Next
End Function
3. Salve e feche este código, volte para a planilha, insira esta fórmula: = palavras divididas (A2) em uma célula em branco adjacente aos seus dados, veja a captura de tela:
4. Em seguida, arraste a alça de preenchimento até as células às quais deseja aplicar esta fórmula, e os espaços foram inseridos antes de cada letra maiúscula para separar o conteúdo da célula, veja a captura de tela:
5. E então você deve copiar e colar essas células de fórmula como valores para remover as fórmulas em outro lugar ou no intervalo original.
Segundo, aplique o recurso Texto para coluna para dividir o conteúdo da célula em colunas separadas pelo espaço.
6. Selecione os valores de célula que você inseriu e clique em Data > Texto para colunas, na Etapa 1 do Assistente de conversão de texto em colunas, selecione Delimitado opção, veja a captura de tela:
7. Então clique Próximo botão, na Etapa 2 do assistente, verifique Espaço opção sob o Delimitadores seção, veja a captura de tela:
8. Continue clicando Próximo botão, na Etapa 3 do assistente, escolha Geral opção sob o Formato de dados da colunae, em seguida, selecione uma célula onde deseja colocar os valores de divisão clicando em 
botão, veja a captura de tela:
9. Finalmente, clique em Acabamento botão, o conteúdo da célula foi dividido em várias colunas, conforme mostrado a seguir:
Divida o texto em colunas separadas por letra maiúscula com o Kutools para Excel
Se você tem Kutools for Excel, combinando seu Adicionar texto e Dividir células recursos, você pode lidar com essa tarefa de forma fácil e confortável, faça o seguinte:
| Kutools for Excel : com mais de 300 suplementos úteis do Excel, grátis para testar sem limitação em 30 dias. |
1. Selecione os dados originais que você deseja dividir.
2. Então clique Kutools > Texto > Adicionar texto, veja a captura de tela:
3. No Adicionar texto caixa de diálogo, digite a barra de espaço uma vez ou qualquer outro separador que você precisa no Texto caixa e, em seguida, escolha 1ª letra é maiúscula do Apenas adicione a seção, veja a captura de tela:
4. Então clique Ok botão, e espaços foram adicionados antes de cada letra maiúscula, veja a captura de tela:
5. E então você pode aplicar o Dividir células utilidade de Kutools for Excel para dividir os valores das células por espaço, mantendo o intervalo de dados selecionado e clique em Kutools > Unir e dividir > Dividir células, veja a captura de tela:
6. No Dividir células caixa de diálogo, selecione Dividir em colunas sob a Formato seção, e verifique Espaço ou outros delimitadores que você adicionou na Etapa 3, consulte a captura de tela:
7. Então clique Ok, e uma caixa de prompt é exibida para lembrá-lo de selecionar uma célula para colocar os dados divididos, consulte a captura de tela:
8. Finalmente, clique em OK botão, e você obterá o resultado de que precisa, veja a captura de tela:
Baixe e teste grátis Kutools para Excel agora!
Demonstração: divida o texto em colunas separadas por letra maiúscula 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!
