Dica: outros idiomas são traduzidos pelo Google. Você pode visitar o English versão deste link.
Entrar
x
or
x
x
Registre-se
x

or

Como dividir texto em colunas separadas por letra maiúscula no Excel?

doc divisão por capital 1

Supondo que você tenha uma variedade de dados que você deseja dividir o conteúdo da célula em colunas separadas pela letra maiúscula como a seguinte captura de tela, você tem alguma boa idéia para resolver esse problema no Excel?

Divulgue texto em colunas separadas por letra maiúscula com fórmulas

Divulgue texto em colunas separadas por letra maiúscula com código VBA

Divulgue texto em colunas separadas por letra maiúscula com o Kutools for Excel



Se houver apenas duas palavras em suas células, as seguintes fórmulas ajudam você a finalizar este trabalho. Faça o seguinte:

1. Digite 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 que está adjacente aos seus dados e, em seguida, pressione Ctrl + Shift + Enter juntas para obter a primeira palavra, veja a captura de tela:

doc divisão por capital 2

2. Em seguida, selecione C2 e arraste o manipulador de preenchimento até as células que deseja aplicar a esta fórmula, todas as primeiras palavras das células do intervalo foram extraídas de uma vez, veja a captura de tela:

doc divisão por capital 3

3. Vá entrar em outra fórmula: = REPLACE (A2,1, LEN (C2), "") (A2 é a célula que você deseja dividir, e C2 a célula contém a primeira palavra que você retornou) na célula D2 e pressione entrar chave para obter a segunda palavra, veja a captura de tela:

doc divisão por 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 celular do intervalo foi dividido em duas colunas pela letra maiúscula, veja a captura de tela:

doc divisão por capital 5


As fórmulas acima apenas são aplicadas ao valor da célula que contém duas palavras, se houver várias palavras em uma célula necessária para ser dividida, 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 separe as colunas pelo espaço.

Primeiro, aplique o código VBA para adicionar espaços antes da letra maiúscula para separar as palavras.

1. Mantenha pressionado 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 separadas (A2) em uma célula em branco adjacente aos seus dados, veja a captura de tela:

doc divisão por capital 6

4. Em seguida, arraste a alça de preenchimento até as células que 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 divisão por capital 7

5. E então, você deve copiar e colar essas fórmulas como valores para remover as fórmulas em outro local ou o intervalo original.

doc divisão por capital 8

Em segundo lugar, aplique o recurso Text to Column para dividir o conteúdo da célula em colunas separadas pelo espaço.

6. Selecione os valores de célula que você inseriu espaços e clique em Dados > Texto para colunas, em Step1 do Converter texto para o assistente de colunas, Selecione Delimitado opção, veja a captura de tela:

doc divisão por capital 9

7. Então clique Próximo botão, no Step2 do assistente, verifique Espaço opção sob o Delimitadores seção, veja a captura de tela:

doc divisão por capital 10

8. Vá clicando em Próximo botão, no Step3 do assistente, escolha Geral opção sob o Formato de dados de coluna, e, em seguida, selecione uma célula onde você deseja colocar os valores de divisão clicando doc divisão por capital 12 botão, veja a captura de tela:

doc divisão por capital 11

9. Finalmente, clique em Terminar , o conteúdo da célula foi dividido em múltiplas colunas como a seguinte captura de tela mostrada:

doc divisão por capital 13


Se você tem Kutools for Excel, combinando sua Adicionar texto e Dividir células recursos, você pode lidar com esta tarefa facilmente e confortavelmente, faça o seguinte:

Kutools for Excel : com mais de 300 complementos Excel úteis, grátis para tentar sem limitação em dias 60.

1. Selecione os dados originais que deseja dividir.

2. Então clique Kutools > Texto > Adicionar texto, veja a captura de tela:

doc divisão por capital 14

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 A letra 1 st é maiúscula de Somente adicionar a seção, veja a captura de tela:

doc divisão por 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 divisão por capital 16

5. E então você pode aplicar o Dividir células utilidade de Kutools for Excel para dividir os valores da célula pelo espaço, mantendo a faixa de dados selecionada e, em seguida, clique em Kutools > Texto > Dividir células, veja a captura de tela:

doc divisão por capital 17

6. No Dividir células caixa de diálogo, selecione Divisão para colunas sob a Tipo seção e verificação Espaço ou outros delimitadores que você adicionou na Etapa 3, veja 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 de divisão, veja a captura de tela:

doc divisão por capital 19

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

doc divisão por capital 20

Faça o download e teste grátis Kutools for Excel Now!


Kutools for Excel: com mais de 200 complementos úteis do Excel, grátis para tentar sem limitação nos dias 60. Baixe e teste grátis agora!


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

  • armadilha para peixes: Inserir rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de endereços e enviar e-mails ...
  • Bar Super Fórmula (facilmente editar várias linhas de texto e fórmula); Layout de leitura (leia e edite facilmente grandes números de células); Colar para intervalo filtrado...
  • Mesclar células / linhas / colunas sem perder dados; Conteúdo de células divididas; Combinar linhas / colunas duplicadas... Prevenir Células Duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Exclusivo Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros de trabalho; Seleção aleatória ...
  • Cópia exata Múltiplas Células sem alterar a referência da fórmula; Criar automaticamente 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 (salve e aplique 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 ...
  • Combinar pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Dividir dados em várias planilhas; Lote Converter xls, xlsx e PDF...
  • Mais de recursos poderosos do 300. Suporta Office / Excel 2007-2019 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos Avaliação gratuita de um dia de 30.
kte tab 201905

A guia Office traz a interface com guias para o Office e torna seu trabalho muito mais fácil

  • Ativar edição e leitura com guias no 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!
fundo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
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.
    guest · 1 years ago
    This doesn't work for two of the same capital letters
    • To post as a guest, your comment is unpublished.
      skyyang · 1 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 · 2 years ago
    Thanks for the content it really worked
  • To post as a guest, your comment is unpublished.
    Tom · 3 years ago
    Your formula fail if name is like this:

    JhonJhon
    MarkMark