Wie entfernt oder löscht man alle durchgestrichenen Texte bzw. Zeichen aus Zellen in Excel?
Dieser Artikel zeigt, wie Sie alle durchgestrichenen Texte oder Zeichen aus mehreren Zellen in Excel effizient entfernen.
Entfernen aller durchgestrichenen Texte aus Zellen mithilfe von VBA-Code
Entfernen aller durchgestrichenen Texte aus Zellen mithilfe von VBA-Code
Der folgende VBA-Code entfernt effizient sämtlichen Text aus Zellen, der mit Durchstreichung formatiert ist. Gehen Sie dazu wie folgt vor:
1. Öffnen Sie das Arbeitsblatt, das die zu entfernenden durchgestrichenen Texte enthält, und drücken Sie gleichzeitig die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie im Fenster Microsoft Visual Basic for Applications auf Einfügen > Modul. Kopieren Sie anschließend den unten stehenden VBA-Code und fügen Sie ihn in das Code-Fenster ein.
VBA-Code: Entfernen aller durchgestrichenen Texte aus Zellen
Sub DelStrikethroughText()
Dim xRg As Range, xCell As Range
Dim xStr As String
Dim I As Long
On Error Resume Next
Set xRg = Application.InputBox("Please select range：", "KuTools For Excel", Selection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = Fase
For Each xCell In xRg
If IsNumeric(xCell.Value) And xCell.Font.Strikethrough Then
xCell.Value = ""
ElseIf Not IsNumeric(xCell.Value) Then
For I = 1 To Len(xCell)
With xCell.Characters(I, 1)
If Not .Font.Strikethrough Then
xStr = xStr & .Text
End If
End With
Next
xCell.Value = xStr
xStr = ""
End If
Next
Application.ScreenUpdating = True
End Sub3. Drücken Sie die Taste F5 oder klicken Sie auf die Schaltfläche Ausführen, um den Code auszuführen. Geben Sie im erscheinenden Kutools für Excel-Dialogfeld den Bereich an, der die durchgestrichenen Texte enthält, die Sie entfernen möchten, und klicken Sie anschließend auf die Schaltfläche OK. Siehe Screenshot:
Anschließend werden alle durchgestrichenen Texte sofort aus den Zellen entfernt, wie im folgenden Screenshot gezeigt.
Entfesseln Sie die Magie von Excel mit KUTOOLS AI
- Intelligente Ausführung: Führen Sie Zelloperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles ganz einfach per Sprachbefehl.
- Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe optimal zu optimieren.
- VBA-Programmierung: Schreiben und implementieren Sie VBA-Code ganz mühelos.
- Formelinterpretation: Verstehen Sie komplexe Formeln spielend leicht.
- Textübersetzung: Überwinden Sie Sprachbarrieren direkt in Ihren Tabellenkalkulationen.
Verwandte Artikel:
- Wie entfernt man Text vor oder nach einem bestimmten Zeichen in Excel?
- Wie entfernt man unerwünschten Text aus einer Excel-Zelle?
- Wie entfernt man Zahlen aus Zellen, die nach der Aufteilung in Text und Zahl enthalten sind, in Excel?
- Wie entfernt man ausschließlich den Text aus Zellen, die sowohl Zahlen als auch Text enthalten, in Excel?
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 zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins