Jak rychle najít a nahradit znak horním indexem v aplikaci Excel?

V aplikaci Excel můžeme rychle nahradit konkrétní hodnotu jinou pomocí funkce Najít a nahradit, ale už jste někdy trpěli problémem, že najdete konkrétní znak v konkrétním textovém řetězci a nahradíte jej jako horní index, například najít YL3 a poté nahraďte YL3, jak je uvedeno níže. Samozřejmě je můžete najít a nahradit jeden po druhém, ale tato metoda stála příliš mnoho času. Pokud existují nějaké triky, které lze rychle nahradit horním indexem v aplikaci Excel? Postupujte podle tohoto článku, dostanete odpověď.

Najděte a nahraďte horním indexem pomocí funkce Najít a nahradit

Najděte a nahraďte indexem VBA

Najděte a nahraďte horním indexem pomocí funkce Najít a nahradit

Ve skutečnosti můžete pomocí funkce Najít a nahradit vyhledat text a poté jej nahradit horním indexem.

1. Vyberte rozsah, pro který chcete najít a nahradit práci, a stiskněte Ctrl + H k otevření Najít a nahradit dialog.

2. V Najít a nahradit dialog, klepněte na tlačítko Nahradit Klepněte na kartu a poté zadejte text, který chcete najít, na kartu Najít to, co Textové pole. Viz screenshot:

3. Pak jdi Nahradit textové pole, zadejte text, který chcete nahradit, všimněte si, podržte Další a stiskněte tlačítko 0179 klíče na Číslo desky pro zadání horního indexu číslo 3. Viz screenshot:

4. cvaknutí Nahradit vše. Zobrazí se dialogové okno, které vám připomene, kolik výměn bylo provedeno. Viz screenshot:

Tip: Ale s touto metodou můžete přepsat pouze číslo 2 stisknutím 0178 a 3 číslem 0179.

Najděte a nahraďte indexem VBA

S funkcí Najít a nahradit může číslo nahradit pouze horní index. Pokud chcete nahradit písmeno horním indexem, jak je ukázáno níže, můžete jej vyřešit pomocí kódu VBA.

1. lis Alt + F11 klíče k otevření Microsoft Visual Basic pro aplikace okno.

2. cvaknutí Vložit > Modula vložte do skriptu pod kód VBA.

VBA: Najít a nahradit formátem horního indexu

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. lis F5 klávesu pro spuštění kódu a objeví se dialogové okno, které vám připomene výběr rozsahu. Viz screenshot:

4. cvaknutí OK, konkrétní znak ve specifickém řetězci byl při výběru převeden do formátu horního indexu. Viz screenshot:

Tip: v kódu, “YL3„Je řetězec, ze kterého chcete najít, a (1, 1) označuje převod prvního 1 znaku řetězce, pokud chcete převést první dva znaky, můžete jej změnit jako (1, 2), pokud chcete převést 1 znak z druhého znaku řetězce, můžete jej změnit jako ( 2, 1).