Como localizar e substituir rapidamente o caractere por sobrescrito no Excel?
Encontre e substitua com sobrescrito pela função Find and Replace
Encontre e substitua por sobrescrito por VBA
Encontre e substitua com sobrescrito pela função Find and Replace
Na verdade, você pode usar Localizar e Substituir para localizar o texto e, em seguida, substituí-lo pelo formato sobrescrito.
1. Selecione o intervalo que deseja encontrar e substituir o trabalho e pressione Ctrl + H para abrir o Localizar e substituir diálogo.
2. No Localizar e substituir diálogo, clique em Substituir guia e, em seguida, insira o texto que deseja encontrar na Encontre o que caixa de texto. Veja a imagem:
3. Em seguida, vá para substituir por caixa de texto, digite o texto que deseja substituir, observe, segure outro tecla e pressione 0179 chaves no Placa numérica para inserir o número sobrescrito 3. Veja a captura de tela:
4. Clique substituir tudo. E uma caixa de diálogo é exibida para lembrá-lo de quantas substituições foram feitas. Veja a imagem:
Dica: Mas com este método, você só pode sobrescrever o número 2 pressionando 0178 e 3 por 0179.
Encontre e substitua por sobrescrito por VBA
Com a função Localizar e Substituir, só pode substituir o número por sobrescrito. Se você deseja substituir a letra por sobrescrito conforme a captura de tela abaixo mostrada, você pode aplicar o código VBA para resolvê-lo.
1. Pressione Alt + F11 chaves para abrir Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Móduloe cole abaixo o código VBA no script.
VBA: encontre e substitua pelo 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 e uma caixa de diálogo é exibida para lembrá-lo de selecionar um intervalo. Veja a imagem:
4. Clique OK, o caractere específico em uma string específica foi convertido para o formato sobrescrito na seleção. Veja a imagem:
Dica: no código, “YL3”É a string que você deseja encontrar, e (1, 1) indica para converter 1 primeiro caractere da string, se você quiser converter os dois primeiros caracteres, você pode alterá-lo como (1, 2), se você quiser converter 1 caractere do segundo caractere da string, você pode alterá-lo como ( 2, 1).
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab 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!
