Hoe verwijder je alle doorgehaalde teksten of karakters uit cellen in Excel?

Dit artikel gaat over het verwijderen van alle doorgehaalde teksten of karakters uit meerdere cellen in Excel.

Verwijder alle doorgehaalde teksten uit cellen met VBA-code

Verwijder alle doorgehaalde teksten uit cellen met VBA-code

De onderstaande VBA-code kan u helpen om alle teksten in cellen die zijn gemarkeerd met een doorhaling te verwijderen. Volg de volgende stappen.

1. Druk in het werkblad dat de doorgehaalde teksten bevat die u wilt verwijderen, tegelijkertijd op de toetsen Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik in het Microsoft Visual Basic for Applications-venster op Invoegen > Module. Kopieer en plak vervolgens de onderstaande VBA-code in het Code-venster.

VBA-code: Verwijder alle doorgehaalde 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 op de F5-toets of klik op de knop Uitvoeren om de code uit te voeren. Selecteer in het pop-upvenster van Kutools voor Excel het bereik dat de doorgehaalde teksten bevat die u wilt verwijderen en klik vervolgens op de knop OK. Zie screenshot:

Alle teksten die zijn gemarkeerd met een doorhaling worden onmiddellijk uit de cellen verwijderd, zoals in de onderstaande screenshot wordt getoond.

Ontdek de Magie van Excel met Kutools AI

• Slimme Uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak diagrammen – allemaal aangestuurd door eenvoudige commando's.
• Aangepaste Formules: Genereer op maat gemaakte formules om uw workflows te versnellen.
• VBA-codering: Schrijf en implementeer VBA-code moeiteloos.
• Formule-uitleg: Begrijp complexe formules gemakkelijk.
• Tekstvertaling: Overbrug taalbarrières binnen uw spreadsheets.

Verhoog uw Excel-mogelijkheden met AI-aangedreven tools. Download Nu en ervaar een ongekende efficiëntie!

Gerelateerde artikelen:

• Hoe verwijder je tekst voor of na een specifiek teken in Excel?
• Hoe verwijder je ongewenste tekst uit een cel in Excel?
• Hoe verwijder je cijfers uit cellen die zowel tekst als cijfers bevatten in Excel?
• Hoe verwijder je alleen tekst uit cellen die zowel cijfers als tekst bevatten in Excel?