Hoe verwijder of verwijder ik alle doorgestreepte teksten of tekens uit cellen in Excel?
Dit artikel heeft het over het verwijderen van alle doorgestreepte teksten of tekens uit meerdere cellen in Excel.
Verwijder alle doorgestreepte teksten uit cellen met VBA-code
Verwijder alle doorgestreepte teksten uit cellen met VBA-code
De onderstaande VBA-code kan u helpen alle teksten te verwijderen in cellen die zijn gemarkeerd met doorhalen. Ga als volgt te werk.
1. In het werkblad staan de doorgehaalde teksten die u moet verwijderen, druk op de anders + F11 toetsen tegelijkertijd om het Microsoft Visual Basic voor toepassingen venster.
2. In de Microsoft Visual Basic voor toepassingen venster, klik dan Inzet > Module. Kopieer en plak vervolgens onder VBA-code in het codevenster.
VBA-code: verwijder alle doorgestreepte teksten uit cellen
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 Sub
3. druk de F5 toets of klik op de lopen knop om de code uit te voeren. Bij het opduiken Kutools for Excel dialoogvenster, selecteer het bereik dat de doorgehaalde teksten bevat die u wilt verwijderen en klik vervolgens op het OK knop. Zie screenshot:
Vervolgens worden alle teksten die zijn gemarkeerd met een doorhaling, onmiddellijk uit de cellen verwijderd, zoals hieronder wordt weergegeven.
Gerelateerde artikelen:
- Hoe verwijder ik tekst voor of na een specifiek teken in Excel?
- Hoe verwijder je ongewenste tekst uit de cel in Excel?
- Hoe verwijder je nummers uit cellen die teksten en cijfers bevatten in Excel?
- Hoe verwijder ik alleen tekst uit cellen met cijfers en teksten in Excel?
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!