Como localizar e substituir rapidamente o caractere por sobrescrito no Excel?

No Excel, podemos substituir rapidamente um valor específico por outro aplicando a função Localizar e Substituir, mas você já sofreu com o problema de localizar um caractere específico em uma string de texto específica e substituí-lo como formato sobrescrito, como encontrar YL3 e então substitua por YL3 conforme a captura de tela abaixo mostrada. Claro, você pode localizar e substituí-los um por um, mas esse método é muito demorado. Se houver algum truque pode substituir rapidamente por sobrescrito no Excel? Siga este artigo, você obterá a resposta.

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).