Como encontrar rapidamente a posição da primeira letra maiúscula em uma string de texto no Excel?
Suponha que haja uma lista de strings de texto misturadas com números, letras maiúsculas e minúsculas. Como você pode encontrar rapidamente a posição da primeira letra maiúscula nas strings? Neste artigo, apresento alguns truques que podem especificar rapidamente a posição da primeira letra maiúscula sem contá-las manualmente no Excel.
Encontrar a posição da primeira letra maiúscula na string com fórmula
Encontrar a posição da primeira letra maiúscula na string com Função Definida
Alterar todas as letras para MAIÚSCULAS ou Primeira Letra Maiúscula com Kutools para Excel 
Encontrar a posição da primeira letra maiúscula na string com fórmula
Aqui está uma fórmula que pode ajudá-lo a encontrar rapidamente a posição da primeira letra maiúscula na string; por favor, faça o seguinte:
Selecione uma célula em branco ao lado da string onde deseja encontrar a primeira letra maiúscula, B1, por exemplo, e insira esta fórmula =MIN(SE(ÉERRO(PROCURAR(CARACT(LIN(INDIRETO("65:90")));A1));"";PROCURAR(CARACT(LIN(INDIRETO("65:90")));A1)))
Pressione Shift + Ctrl + Enter para obter o resultado correto, e depois arraste a alça de preenchimento automático sobre as células onde deseja aplicar essa fórmula. Veja a captura de tela:
Encontrar a posição da primeira letra maiúscula na string com Função Definida
Além da fórmula, você também pode usar uma Função Definida para descobrir a posição da primeira letra maiúscula na string.
1. Ative a planilha que contém a string onde deseja encontrar a letra maiúscula e pressione Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.
2. Clique com o botão direito do mouse na planilha onde deseja usar o código no painel Explorador de Projetos, e clique em Inserir > Módulo, e cole o código abaixo no script do Módulo em branco. Veja a captura de tela:
Código: Encontre a posição da primeira letra maiúscula na string.
Function GetFirstUpper(Rg As Range) As Integer
'UpdatebyExtendoffice20160726
Dim xStr As String
Dim I As Integer
Application.Volatile
GetFirstUpper = -1
On Error Resume Next
xStr = Trim(Rg.Value)
For I = 1 To Len(xStr)
If (Asc(Mid(xStr, I, 1)) < 91) And (Asc(Mid(xStr, I, 1)) > 64) Then
GetFirstUpper = I
Exit Function
End If
Next
End Function
3. Salve o código e volte para a planilha que está usando, e selecione uma célula em branco ao lado da string onde deseja encontrar a letra maiúscula, insira esta fórmula =GetFirstUpper(F1), pressione Enter e, em seguida, arraste a alça de preenchimento automático sobre as células onde deseja aplicar essa fórmula. Veja a captura de tela:
Dica: Se não houver nenhuma letra maiúscula na string, o resultado será exibido como -1.
Alterar todas as letras para MAIÚSCULAS ou Primeira Letra Maiúscula com Kutools para Excel
No trabalho geral do Excel, você pode precisar alterar frequentemente strings de letras para MAIÚSCULAS, Primeira Letra Maiúscula, minúsculas, caso de frase ou ToGgLe CaSe, conforme mostrado na captura de tela abaixo.
Com o Kutools para Excel, você pode aplicar sua ferramenta Alterar Formato para alterar rapidamente o formato das letras conforme necessário.
Após a instalação gratuita do Kutools para Excel, siga os passos abaixo:
1. Selecione as strings cujo formato deseja alterar e clique em Kutools > Texto > Alterar Formato. Veja a captura de tela:
2. Em seguida, na janela pop-up Alterar Formato diálogo, marque a opção desejada na seção Alterar Tipo e você pode visualizar o resultado no painel Visualização. Veja a captura de tela:
3. Em seguida, clique em Ok ou Aplicar para alterar o formato.
Kutools para Excel - Potencialize o Excel com mais de 300 ferramentas essenciais. Aproveite recursos de IA permanentemente gratuitos! Obtenha Agora
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