Como localizar e substituir rapidamente um caractere por sobrescrito no Excel?
Localizar e substituir por sobrescrito usando a função Localizar e Substituir
Localizar e substituir por sobrescrito usando VBA
Localizar e substituir por sobrescrito usando a função Localizar e Substituir
Na verdade, você pode usar o Localizar e Substituir para localizar o texto e então substituir pelo formato sobrescrito.
1. Selecione o intervalo no qual deseja localizar e substituir, e pressione Ctrl + H para abrir a caixa de diálogo Localizar e Substituir.
2. Na Localizar e Substituir caixa de diálogo, clique na Substituir aba e, em seguida, digite o texto que deseja localizar na caixa Localizar o que de texto. Veja a imagem:
3. Depois, vá para a caixa Substituir por de texto, digite o texto pelo qual deseja substituir. Atenção: mantenha pressionada a tecla Alt e pressione 0179 as teclas no Teclado numérico para inserir o número sobrescrito3. Veja a imagem:
4. Clique em Substituir Tudo. Uma caixa de diálogo aparecerá informando quantas substituições foram realizadas. Veja a imagem:
Dica: Com esse método, você só pode sobrescrever o número2 pressionando0178 e o número3 pressionando0179.
Desbloqueie a Magia do Excel com o Kutools AI
- Execução Inteligente: Realize operações de células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
- Fórmulas Personalizadas: Gere fórmulas sob medida para otimizar seus fluxos de trabalho.
- Codificação VBA: Escreva e implemente código VBA sem esforço.
- Interpretação de Fórmulas: Compreenda fórmulas complexas com facilidade.
- Tradução de Texto: Supere barreiras linguísticas dentro de suas planilhas.
Localizar e substituir por sobrescrito usando VBA
Com a função Localizar e Substituir, só é possível substituir números por sobrescrito. Se você deseja substituir letras por sobrescrito, como mostrado na imagem abaixo, pode aplicar um código VBA para resolver.
1. Pressione Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e cole o código VBA abaixo no script.
VBA: Localizar e substituir por formato sobrescrito
Sub DoConvert()
'UpdatebyExtendoffice20160705
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Select a range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
For Each xCell In xRg
If xCell.Value = "YL3" Then
xCell.Characters(1, 1).Font.Superscript = True
End If
Next
End Sub
3. Pressione F5 para executar o código. Uma caixa de diálogo aparecerá solicitando que você selecione um intervalo. Veja a imagem:
4. Clique em OK, o caractere específico na sequência foi convertido para o formato sobrescrito no intervalo selecionado. Veja a imagem:
Dica: No código, “YL3” é a sequência que você deseja localizar, e (1,1) indica que será convertido o primeiro caractere da sequência. Se quiser converter os dois primeiros caracteres, altere para (1,2). Se quiser converter um caractere a partir do segundo caractere da sequência, altere para (2,1).
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