Wie ersetze ich alle Zahlen in Zellen durch X in Excel?
Wie der folgende Screenshot zeigt, wie werden alle Zahlen in Zellen durch x in Excel ersetzt? Die Methode in diesem Artikel hilft Ihnen bei der Lösung des Problems.
Ersetzen Sie alle Zahlen in Zellen durch x durch VBA-Code
Ersetzen Sie alle Zahlen in Zellen durch x durch VBA-Code
Der folgende VBA-Code kann Ihnen helfen, alle Zahlen in ausgewählten Zellen durch X in Excel zu ersetzen. Bitte gehen Sie wie folgt vor.
1. Wählen Sie die Zellen aus, die Zahlen enthalten, die Sie durch x ersetzen möchten, und drücken Sie dann die Taste Andere + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. In dem Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Insert > Modul. Kopieren Sie dann den folgenden VBA-Code in das Code-Fenster.
VBA-Code: Ersetzen Sie alle Zahlen im ausgewählten Bereich durch x in Excel
Sub ReplaceNoX()
Dim cell As Object
Dim val As String
Dim i As Integer
Dim n As String
Application.ScreenUpdating = False
For Each cell In Selection
If IsNumeric(cell.Value) Then
val = cell.Text
For i = 1 To Len(val)
n = Mid(val, i, 1)
If "0" <= n And n <= "9" Then
Mid(val, i, 1) = "x"
End If
Next
cell.Formula = val
End If
Next
Application.ScreenUpdating = True
End Sub
3. Drücken Sie die Taste F5 Taste zum Ausführen des Codes. Dann können Sie sehen, dass alle Zahlen in ausgewählten Zellen durch x ersetzt werden, wie im folgenden Screenshot gezeigt.
In Verbindung stehende Artikel:
- Wie finde und ersetze ich alle leeren Zellen in Excel durch eine bestimmte Nummer oder einen bestimmten Text?
- Wie ersetze ich Kommas in Excel-Zellen durch Zeilenumbrüche (Alt + Eingabetaste)?
- Wie ersetze ich Zeilenumbrüche in Excel durch br?
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!