Wie kann man in Excel schnell Zeichen finden und durch hochgestellte Zeichen ersetzen?
Suchen und Ersetzen durch hochgestellte Zeichen durch Suchen und Ersetzen
Suchen und durch hochgestellt durch VBA ersetzen
Suchen und Ersetzen durch hochgestellte Zeichen durch Suchen und Ersetzen
Tatsächlich können Sie Suchen und Ersetzen verwenden, um den Text zu suchen und ihn dann durch ein hochgestelltes Format zu ersetzen.
1. Wählen Sie den Bereich aus, für den Sie Arbeit suchen und ersetzen möchten, und drücken Sie Strg + H öffnen Suchen und Ersetzen Dialog.
2. In dem Suchen und Ersetzen Dialog, klicken Sie auf Ersetzen Klicken Sie auf die Registerkarte und geben Sie den gewünschten Text in das Feld ein Finden Sie, was Textfeld. Siehe Screenshot:
3. Dann gehen Sie zu Ersetzen durch Textfeld, geben Sie den Text ein, durch den Sie ersetzen möchten, beachten Sie, halten Sie Andere Taste und dann drücken 0179 Schlüssel auf der Nummerntafel um die hochgestellte Nummer 3 einzugeben. Siehe Screenshot:
4 Klicken Alle ersetzen. Ein Dialogfeld wird angezeigt, in dem Sie daran erinnert werden, wie viele Ersetzungen vorgenommen wurden. Siehe Screenshot:
TIPP: Mit dieser Methode können Sie jedoch die Nummer 2 nur durch Drücken von 0178 und 3 bis 0179 hochstellen.
Suchen und durch hochgestellt durch VBA ersetzen
Mit der Funktion Suchen und Ersetzen kann nur die Zahl durch hochgestellt ersetzt werden. Wenn Sie den Buchstaben durch einen hochgestellten Buchstaben ersetzen möchten (siehe Abbildung unten), können Sie VBA-Code anwenden, um ihn zu lösen.
1. Drücken Sie Alt + F11 Schlüssel zum Öffnen Microsoft Visual Basic für Applikationen Fenster.
2 Klicken Insert > Modulund fügen Sie den folgenden VBA-Code in das Skript ein.
VBA: Suchen und durch hochgestelltes Format ersetzen
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. Drücken Sie F5 Wenn Sie die Taste drücken, um den Code auszuführen, wird ein Dialogfeld angezeigt, das Sie daran erinnert, einen Bereich auszuwählen. Siehe Screenshot:
4 Klicken OKwurde das bestimmte Zeichen in einer bestimmten Zeichenfolge in der Auswahl in ein hochgestelltes Format konvertiert. Siehe Screenshot:
Tipp: im Code “YL3”Ist die Zeichenfolge, aus der Sie suchen möchten, und (1, 1) Gibt an, dass das erste 1-Zeichen der Zeichenfolge konvertiert werden soll. Wenn Sie die ersten beiden Zeichen konvertieren möchten, können Sie es als (1, 2) ändern. Wenn Sie 1 Zeichen vom zweiten Zeichen der Zeichenfolge konvertieren möchten, können Sie es als (2) ändern. 1, XNUMX).
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
