Hur tar jag bort eller tar bort alla genomskinliga texter eller tecken från celler i Excel?

Den här artikeln talar om att ta bort alla genomskinliga texter eller tecken från flera celler i Excel.

Ta bort alla genomskinliga texter från celler med VBA-kod

Ta bort alla genomskinliga texter från celler med VBA-kod

Nedanstående VBA-kod kan hjälpa dig att ta bort alla texter i celler som har markerats med genomstrykning. Gör så här.

1. I kalkylbladet innehåller de genomstrykningstexter du behöver ta bort, tryck på andra + F11 samtidigt för att öppna Microsoft Visual Basic för applikationer fönster.

2. I Microsoft Visual Basic för applikationer klicka på fönstret Inset > Modulerna. Kopiera och klistra sedan in under VBA-koden i kodfönstret.

VBA-kod: Ta bort alla genomskinliga texter från celler

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. tryck på F5 eller klicka på Körning för att köra koden. I pop-up Kutools för Excel i dialogrutan, välj det intervall som innehåller de genomstrykningstexter du tar bort och klicka sedan på OK knapp. Se skärmdump:

Sedan tas alla texter som är markerade med en genomstrykning bort från cellerna omedelbart enligt nedanstående skärmdump.

Lås upp Excel Magic med Kutools AI

• Smart utförande: Utför celloperationer, analysera data och skapa diagram – allt drivs av enkla kommandon.
• Anpassade formler: Skapa skräddarsydda formler för att effektivisera dina arbetsflöden.
• VBA-kodning: Skriv och implementera VBA-kod utan ansträngning.
• Formeltolkning: Förstå komplexa formler med lätthet.
• Textöversättning: Bryt språkbarriärerna i dina kalkylblad.

Förbättra dina Excel-funktioner med AI-drivna verktyg. Hämta hem nu och upplev effektivitet som aldrig förr!

Relaterade artiklar:

• Hur tar jag bort text före eller efter ett visst tecken i Excel?
• Hur tar jag bort oönskad text från cellen i Excel?
• Hur tar jag bort siffror från celler som innehåller texter och siffror i Excel?
• Hur tar jag bara bort text från celler som innehåller siffror och texter i Excel?