Hoe snel tekens te vinden en te vervangen door superscript in Excel?
Zoek en vervang door superscript met de functie Zoeken en vervangen
Zoek en vervang door superscript door VBA
Zoek en vervang door superscript met de functie Zoeken en vervangen
Eigenlijk kunt u Zoeken en vervangen gebruiken om de tekst te zoeken en deze vervolgens te vervangen door superscript.
1. Selecteer het bereik dat u wilt zoeken en waarvoor u werk wilt vervangen, en druk op Ctrl + H om de te openen Zoeken en vervangen dialoogvenster.
2. In de Zoeken en vervangen dialoogvenster, klik vervangen tabblad en voer vervolgens de tekst in die u wilt zoeken in het Zoeken naar tekstvak. Zie screenshot:
3. Ga dan naar Vervangen door tekstvak, voer de tekst in die u wilt vervangen, let op, houd even vast anders toets en druk vervolgens op 0179 toetsen op de Nummerbord om het superscript nummer 3 in te voeren. Zie screenshot:
4. klikken Alles vervangen. En er verschijnt een dialoogvenster om u eraan te herinneren hoeveel vervangingen er zijn gedaan. Zie screenshot:
Tip: Maar met deze methode kunt u nummer 2 alleen in superscript zetten door op 0178 te drukken en 3 door 0179.
Zoek en vervang door superscript door VBA
Met de functie Zoeken en vervangen kan alleen het nummer worden vervangen door superscript. Als u de letter wilt vervangen door superscript, zoals onderstaand screenshot, kunt u VBA-code toepassen om het op te lossen.
1. druk op Alt + F11 sleutels om te openen Microsoft Visual Basic voor toepassingen venster.
2. klikken Invoegen > Moduleen plak onderstaande VBA-code in het script.
VBA: zoeken en vervangen door superscript-indeling
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. druk op F5 toets om de code uit te voeren, en er verschijnt een dialoogvenster om u eraan te herinneren een bereik te selecteren. Zie screenshot:
4. klikken OK, is het specifieke teken in de specifieke tekenreeks geconverteerd naar een superscript-indeling in de selectie. Zie screenshot:
Tip: in de code, "YL3”Is de tekenreeks waaruit u wilt zoeken, en (1, 1) geeft aan dat het eerste teken van de tekenreeks moet worden geconverteerd, als u de eerste twee tekens wilt converteren, kunt u dit wijzigen als (1, 1), als u 2 teken wilt converteren van het tweede teken van de tekenreeks, kunt u dit wijzigen als ( 1, 2).
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!