Cum să eliminați sau să ștergeți toate textele sau caracterele strikethrough din celule în Excel?

Acest articol vorbește despre înlăturarea tuturor textelor sau a caracterelor șterse din mai multe celule din Excel.

Eliminați toate textele strikethrough din celule cu cod VBA

Eliminați toate textele strikethrough din celule cu cod VBA

Codul VBA de mai jos vă poate ajuta să eliminați toate textele din celule care au fost marcate cu strikethrough. Vă rugăm să faceți următoarele.

1. În foaia de lucru conține textele pe care trebuie să le eliminați, apăsați pe Alt + F11 tastele simultan pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. În Microsoft Visual Basic pentru aplicații fereastra, faceți clic pe Medalion > Module. Apoi copiați și lipiți mai jos codul VBA în fereastra Cod.

Cod VBA: Eliminați toate textele strikethrough din celule

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. apasă pe F5 tasta sau faceți clic pe Alerga pentru a rula codul. În pop-up Kutools pentru Excel caseta de dialog, selectați intervalul conține textele șterse pe care le veți elimina, apoi faceți clic pe OK buton. Vedeți captura de ecran:

Apoi, toate textele marcate cu o bară sunt eliminate din celule imediat după cum se arată în imaginea de mai jos.

Deblocați Excel Magic cu Kutools AI

• Execuție inteligentă: Efectuați operații cu celule, analizați date și creați diagrame, toate conduse de comenzi simple.
• Formule personalizate: generați formule personalizate pentru a vă simplifica fluxurile de lucru.
• Codare VBA: Scrieți și implementați codul VBA fără efort.
• Interpretarea formulei: Înțelegeți cu ușurință formulele complexe.
• Traducere text: spargeți barierele lingvistice din foile de calcul.

Îmbunătățiți-vă capabilitățile Excel cu instrumente bazate pe inteligență artificială. Descarcă acum și experimentați eficiența ca niciodată!

Legate de articole:

• Cum se elimină textul înainte sau după un anumit caracter în Excel?
• Cum se elimină textul nedorit din celula din Excel?
• Cum se elimină numerele din celule care conțin texte și numere în Excel?
• Cum se elimină numai textul din celulele care conțin numere și texte în Excel?