Como dividir uma célula no primeiro número no Excel?
Nas tarefas diárias com o Excel, é frequentemente necessário dividir o conteúdo de uma célula para organizar ou analisar os dados de forma mais eficaz. Tradicionalmente, os utilizadores do Excel separam texto utilizando delimitadores (como vírgulas ou espaços) ou especificando uma largura fixa. Contudo, há cenários em que as suas cadeias de texto contêm tanto texto como números, e precisa de separar a cadeia exatamente no ponto onde surge o primeiro número — um caso ilustrado na imagem seguinte.
Ao trabalhar com dados como códigos de produto, etiquetas combinadas ou cadeias de referência, extrair o texto antes do primeiro número — ou o próprio número — pode facilitar a ordenação, pesquisa e processamento posterior. A seguir, apresentamos métodos práticos para dividir uma célula no primeiro número, incluindo técnicas baseadas em fórmulas e uma combinação da funcionalidade Localizar e Substituir do Word com a ferramenta Texto em Colunas do Excel. Cada abordagem tem os seus cenários ideais e considerações específicas, detalhadas de seguida para o ajudar a escolher a melhor solução para as suas necessidades.
➤ Dividir uma célula no primeiro número com fórmulas
➤ Dividir uma célula no primeiro número com o Word e Texto em Colunas
➤ Dividir uma célula no primeiro número utilizando código VBA
Dividir uma célula no primeiro número com fórmulas
Se pretender dividir o conteúdo de uma célula no ponto em que surge o primeiro número, pode fazê-lo diretamente no Excel com fórmulas — sem precisar de ferramentas adicionais. Este método revela-se ideal quando os seus dados seguem um padrão consistente e procura uma solução automatizada que se atualize automaticamente sempre que os Dados de Origem mudarem.
Resumo
- Vantagens: Permanece no Excel; é dinâmico (atualiza-se automaticamente sempre que a célula original for alterada); ideal para operações repetidas ou em lote através da alça de preenchimento.
- Limitações: As fórmulas podem ser complexas; símbolos inesperados ou algarismos não padrão (por exemplo, algarismos de largura total) podem exigir ajustes.
1) Selecione uma célula para a parte de texto do seu resultado dividido (por exemplo, B1). Introduza a seguinte fórmula para extrair o texto antes do primeiro número em A1:
=TRIM(LEFT(A1, MIN(FIND({0,1,2,3,4,5,6,7,8,9}, A1 & "0123456789")) - 1))Prima Enter para confirmar e, em seguida, arraste a alça de preenchimento para baixo, aplicando a fórmula às restantes linhas e extraindo a parte de texto de cada cadeia, conforme mostrado abaixo.
2) Para extrair o restante a partir do primeiro número, selecione uma célula adjacente (por exemplo,C1) e introduza:
=TRIM(REPLACE(A1, 1, LEN(B1), ""))Mais uma vez, prima Enter e arraste a alça de preenchimento para baixo, de modo a aplicar a fórmula às restantes linhas. O resultado será o número (e quaisquer caracteres seguintes) extraídos de cada cadeia.
Explicação dos parâmetros:
ESQUERDA(A1; …): isola o texto à esquerda até (mas sem incluir) o primeiro algarismo.MÍN(PROCURAR({0-9}; A1 & "0123456789")): procura qualquer algarismo e devolve a posição mais à esquerda; adicionar"0123456789"garante uma correspondência, mesmo que A1 não contenha algarismos.ARRUMAR(…): remove os espaços extra à volta das partes extraídas.SUBSTITUIR(A1; 1; NÚM.CARACT(B1); ""): remove o texto à esquerda — cujo comprimento corresponde ao valor em B1 — devolvendo o restante a partir do primeiro algarismo.VALOR(…): converte a cadeia numérica extraída num valor numérico, sempre que necessário para cálculos.
Resolução de problemas e dicas
- Sem dígitos presentes: a primeira fórmula devolve todo o texto; a segunda devolve uma célula vazia. Envolver com
SE/SEERROpara obter resultados personalizados. - Dependências: A segunda fórmula depende do texto extraído em B1. Atualize as referências caso a sua disposição seja diferente.
- Algarismos não padrão: Se os seus dados contiverem algarismos de largura total ou não ASCII, normalize-os primeiro ou amplie o conjunto de dígitos em
PROCURAR. - Desempenho: Para intervalos muito grandes, utilize a Fórmula de preenchimento uma vez e, em seguida, copie > Cole Especial ▸ Valores para fixar os resultados.
- Higiene dos dados: Remova espaços iniciais e finais na origem com
ARRUMARouLIMPARse surgirem resultados inesperados.
Divida rapidamente uma célula em colunas ou linhas com base num delimitador |
| No Excel, dividir uma célula em colunas é um processo moroso com o assistente passo a passo. Mas com o utilitário, pode: 1) converter uma célula em colunas ou linhas com base num delimitador; 2) converter cadeias com a opção «Dividir por Texto e Número»; 3) converter cadeias com base numa largura específica — tudo isto com apenas alguns cliques.Clique para experimentar gratuitamente todas as funcionalidades durante 30 dias!Kutools para Excel's Dividir Células |
 |
| Kutools para Excel: com mais de 300 complementos práticos do Excel, grátis para experimentar sem limitações durante 30 dias. |
Dividir uma célula no primeiro número com o Word e Texto em Colunas
Em alguns casos, os seus dados podem conter cadeias mais longas ou variadas, ou poderá precisar de uma solução que não dependa de fórmulas — especialmente se pretender realizar um processamento pontual ou em lote para um relatório. Uma abordagem eficaz combina o utilitário Localizar e Substituir do Microsoft Word com a funcionalidade Texto em Colunas do Excel. Esta técnica aproveita as capacidades de wildcards (semelhantes a expressões regulares) do Word para inserir rapidamente um delimitador no ponto exato onde pretende dividir os dados.
Resumo
- Vantagens: Lida com grandes conjuntos de dados; funciona mesmo quando as fórmulas são complexas; oferece uma manipulação flexível.
- Limitações: Requer Word e Excel; os resultados são estáticos (não dinâmicos); e os passos são manuais. Além disso, o exemplo básico de wildcard abaixo adiciona um delimitador após cada grupo numérico, e não apenas no primeiro.
Se as suas cadeias consistirem em números seguidos de texto (ou vice-versa), siga os passos seguintes:
1. Copie as suas cadeias-alvo para o Excel e cole-as num documento do Word em branco. Em seguida, prima Ctrl + H para abrir a caixa de diálogo Localizar e Substituir.
2. Na caixa de diálogo Localizar e Substituir, introduza ([0-9]{1,}) na caixa Localizar, depois digite \1, na caixa Substituir por. Clique em Mais para expandir as opções e marque Utilizar caracteres universais.
Notas sobre os parâmetros:
– ([0-9]{1,}) localiza qualquer grupo de um ou mais dígitos (sintaxe de caracteres universais do Word).
– \1, insere uma vírgula após cada grupo numérico encontrado, funcionando como um novo delimitador.
3. Clique em Substituir Tudo. Responda com Sim e OK se aparecerem caixas de confirmação.
 |  |  |
Isto adicionará uma vírgula após cada número, preparando os dados para uma divisão simples no Excel.
4. Copie novamente o texto modificado do Word para a sua folha de cálculo do Excel. Depois, aceda a Dados > Texto em Colunas.
5. No assistente Texto em Colunas, selecione Delimitado, clique em Seguinte e escolha Vírgula como delimitador.
 | |  |
6. Clique em Seguinte, escolha onde pretende guardar os resultados divididos e, em seguida, clique em Concluir.
Os seus dados aparecerão agora em colunas separadas — divididos no primeiro número (assumindo que cada linha contém apenas um grupo numérico).
Resolução de problemas e dicas
- Apenas o primeiro número? O simples wildcard
([0-9]{1,}) → \1,adiciona uma vírgula após cada grupo numérico. Utilize este método apenas quando cada cadeia contiver um único grupo numérico. Caso contrário, opte pelo método com fórmulas ou pelo Power Query para dividir apenas no primeiro número. - Adicionar vírgula antes do número: Se a primeira parte for texto e quiser o delimitador antes dos algarismos, utilize
,\1em Substituir por. (Imagem de exemplo corrigida: «primeira parte é texto».) - Caracteres e localizações: Se os algarismos incluírem formas não ASCII ou de largura total, os wildcards do Word podem não os detetar. Normalize primeiro os caracteres ou trate-os no Excel/Power Query.
- Segurança dos dados: Trabalhe sempre numa cópia antes de substituir. Após reimportar para o Excel, utilize com cuidado a opção Texto em Colunas para evitar sobrescrever dados adjacentes.
- Resultados estáticos: Este método não é dinâmico; se a sua origem de dados mudar frequentemente, opte pela abordagem com fórmulas para que os resultados sejam atualizados automaticamente.
Sugestão resumo: Se precisar que o processo seja atualizado automaticamente à medida que os dados mudam, utilize o método com fórmulas descrito acima. Este método com Word/Excel é mais adequado para limpezas pontuais de dados ou quando as fórmulas se tornam demasiado complexas para o seu cenário.
Dividir uma célula no primeiro número utilizando código VBA
Como alternativa poderosa para dividir cadeias de caracteres no primeiro número, pode utilizar uma macro VBA do Excel. Este método é ideal para utilizadores à vontade com macros, especialmente ao lidar com dados de comprimento variável ou ao automatizar tarefas repetitivas de divisão em grandes conjuntos de dados. O VBA oferece maior personalização e flexibilidade do que as fórmulas tradicionais, embora exija a ativação de macros no Excel e alguns passos básicos de edição de código.
Resumo
- Benefícios: Altamente personalizável, escalável para processamento em lote e minimiza passos manuais.
- Limitações: Requer permissões de macro e algum conhecimento de VBA; os resultados não são tão dinâmicos em tempo real como os obtidos com fórmulas.
1. Abra o Excel e prima Alt + F11 para abrir o editor do VBA. Na interface do VBA, clique em Inserir > Módulo para criar um novo módulo. Em seguida, copie e cole o seguinte código no módulo:
Option Explicit
Sub SplitAtFirstNumber()
Dim selRng As Range, c As Range
Dim sText As String
Dim i As Long, firstPos As Long
Dim title As String
title = "KutoolsforExcel"
' Let user choose the range (safe-cancel)
On Error Resume Next
Set selRng = Application.InputBox( _
Prompt:="Select range to split", _
Title:=title, _
Default:=Selection.Address, _
Type:=8)
On Error GoTo 0
If selRng Is Nothing Then
MsgBox "Operation cancelled.", vbInformation
Exit Sub
End If
Application.ScreenUpdating = False
For Each c In selRng.Cells
If Not IsError(c.Value) And Len(c.Value) > 0 Then
sText = CStr(c.Value)
firstPos = 0
' Find the position of the first ASCII digit 0-9
For i = 1 To Len(sText)
If Mid$(sText, i, 1) Like "[0-9]" Then
firstPos = i
Exit For
End If
Next i
If firstPos > 0 Then
c.Offset(0, 1).Value = Left$(sText, firstPos - 1) ' text before the first number
c.Offset(0, 2).Value = Mid$(sText, firstPos) ' remainder from the first number
Else
c.Offset(0, 1).Value = sText
c.Offset(0, 2).Value = ""
End If
Else
' Blank or error cells: copy to text part, keep number part blank
c.Offset(0, 1).Value = c.Value
c.Offset(0, 2).Value = ""
End If
Next c
Application.ScreenUpdating = True
MsgBox "Split completed.", vbInformation
End Sub
2. Para executar a macro, prima F5 na janela do VBA ou, no Excel, prima Alt + F8, escolha SplitAtFirstNumber e, depois, clique em Executar. Aparecerá uma caixa de diálogo intitulada «Kutools for Excel» a solicitar que selecione o intervalo de células a processar; escolha as suas células e confirme. A macro dividirá cada célula selecionada — colocando a parte de texto anterior ao primeiro número na coluna imediatamente à direita e o restante (número e caracteres seguintes) na coluna seguinte. Se não for encontrado nenhum número, todos os dados serão escritos na coluna de texto e a coluna de números ficará em branco.
Resolução de problemas e dicas
- Não sobrescreve os originais:Os resultados são escritos nas duas colunas seguintes ()
Deslocamento(0,1)eDeslocamento(0,2)). Mova ou faça backup dos dados nessas colunas previamente, se necessário, ou altere os deslocamentos no código. - Conjunto de caracteres: O padrão corresponde a algarismos ASCII
[0-9]. Para algarismos de largura total ou não ASCII, alargue a verificação ou normalize primeiro a entrada. - Desempenho: Para intervalos muito grandes, este ciclo é geralmente rápido. Se necessário, pode carregar o intervalo numa matriz e escrevê-lo de volta de uma só vez para acelerar ainda mais.
- Ativar macros: Certifique-se de que as macros estão ativadas; caso contrário, o código não será executado.
- Anular: As ações em VBA não permitem anulação passo a passo. Guarde uma cópia antes de executar!
Desbloqueie a Magia do Excel com KUTOOLS AI
- Execução Inteligente: Realize operações em células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
- fórmulas personalizadas: Crie fórmulas personalizadas para simplificar os seus fluxos de trabalho.
- Programação VBA: Escreva e implemente código VBA com facilidade.
- Interpretação de Fórmulas: Compreenda facilmente fórmulas complexas.
- Tradução de Texto: Elimine barreiras linguísticas nas suas folhas de cálculo.
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos