Note: The other languages of the website are Google-translated. Back to English
Log in  \/ 
x
or
x
Inscreva-se  \/ 
x

or

Como dividir o texto em colunas separadas por letras maiúsculas no Excel?

doc dividido pela capital 1

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 letras maiúsculas com o Kutools para Excel


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:

doc dividido pela capital 2

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:

doc dividido pela capital 3

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:

doc dividido pela capital 4

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:

doc dividido pela capital 5


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:

doc dividido pela capital 6

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:

doc dividido pela capital 7

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.

doc dividido pela capital 8

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 Dados > Texto para colunas, na Etapa 1 do Assistente de conversão de texto em colunas, Selecione Delimitado opção, veja a captura de tela:

doc dividido pela capital 9

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:

doc dividido pela capital 10

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 doc dividido pela capital 12botão, veja a captura de tela:

doc dividido pela capital 11

9. Finalmente, clique em Terminar botão, o conteúdo da célula foi dividido em várias colunas, conforme mostrado a seguir:

doc dividido pela capital 13


Se você tem Kutools for Excel, combinando seu Adicionar texto ao mesmo tempo que 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 KutoolsTexto > 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 de Apenas adicione a seção, veja a captura de tela:

doc dividido pela capital 15

4. Então clique Ok botão, e espaços foram adicionados antes de cada letra maiúscula, veja a captura de tela:

doc dividido pela capital 16

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 Tipo seção, e verifique Espaço ou outros delimitadores que você adicionou na Etapa 3, consulte a captura de tela:

doc dividido pela capital 18 18

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:

doc dividido pela capital 19

8. Finalmente, clique em OK botão, e você obterá o resultado de que precisa, veja a captura de tela:

doc dividido pela capital 20

Baixe e teste grátis Kutools para Excel agora!


Kutools for Excel: com mais de 300 suplementos úteis do Excel, grátis para testar sem limitação em 30 dias. Baixe e teste grátis agora!

As melhores ferramentas de produtividade para escritório

O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

  • armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
  • Super Formula Bar (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
  • Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
  • Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de 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 (salvar e aplicar 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 ...
  • Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
  • Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2019 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Teste gratuito de 30 dias com recursos completos. Garantia de devolução do dinheiro em 60 dias.
guia kte 201905

Guia do Office 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!
officetab bottom
Say something here...
symbols left.
You are guest
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.
    Phillip · 7 months ago
    I need some help splitting a cell. I can do it by lower case next to upper case. But if the splitting word is one capitol letter, followed by another capitol letter it won't work. Also, if there are Roman numerals involved there are problems. If there is a word, such as "McDonald" or "MacDonald" there are problems. Can you help?

  • To post as a guest, your comment is unpublished.
    guest · 3 years ago
    This doesn't work for two of the same capital letters
    • To post as a guest, your comment is unpublished.
      skyyang · 3 years ago
      Hello,
      If the two words are same words, please change the first array formula to the follows:
      =LEFT(A2,SMALL(FIND(CHAR(ROW(INDIRECT("65:90"))),RIGHT(A2, LEN(A2)-1)&"ABCDEFGHIJKLMNOPQRSTUVWXYZ"),1))

      Please remember to press Ctrl + Shift + Enter keys together.

      Hope it can help you!
  • To post as a guest, your comment is unpublished.
    sdf · 4 years ago
    Thanks for the content it really worked
  • To post as a guest, your comment is unpublished.
    Tom · 5 years ago
    Your formula fail if name is like this:

    JhonJhon
    MarkMark