Come rimuovere o eliminare tutti i testi o caratteri barrati dalle celle in Excel?

Questo articolo parla della rimozione di tutti i testi o caratteri barrati da più celle in Excel.

Rimuovi tutti i testi barrati dalle celle con il codice VBA

Rimuovi tutti i testi barrati dalle celle con il codice VBA

Il seguente codice VBA può aiutarti a rimuovere tutti i testi nelle celle che sono stati contrassegnati come barrati. Procedi come segue.

1. Nel foglio di lavoro contenente i testi barrati che desideri rimuovere, premi contemporaneamente i tasti Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Nella finestra Microsoft Visual Basic for Applications, fai clic su Inserisci > Modulo. Quindi copia e incolla il seguente codice VBA nella finestra del Codice.

Codice VBA: Rimuovi tutti i testi barrati dalle celle

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. Premi il tasto F5 o fai clic sul pulsante Esegui per eseguire il codice. Nella finestra di dialogo Kutools per Excel che appare, seleziona l'intervallo contenente i testi barrati che desideri rimuovere, quindi fai clic sul pulsante OK. Vedi screenshot:

Tutti i testi contrassegnati con un barrato vengono immediatamente rimossi dalle celle come mostrato nello screenshot sottostante.

Sblocca la Magia di Excel con Kutools AI

• Esecuzione Intelligente: Esegui operazioni sulle celle, analizza i dati e crea grafici — tutto guidato da semplici comandi.
• Formule Personalizzate: Genera formule su misura per ottimizzare i tuoi flussi di lavoro.
• Codifica VBA: Scrivi e implementa codice VBA senza sforzo.
• Interpretazione delle Formule: Comprendi facilmente formule complesse.
• Traduzione del Testo: Superare le barriere linguistiche all'interno dei tuoi fogli di calcolo.

Potenzia le tue capacità di Excel con strumenti alimentati dall'IA. Scarica Ora ed esperisci un'efficienza mai vista prima!

Articoli correlati:

• Come rimuovere il testo prima o dopo un carattere specifico in Excel?
• Come rimuovere il testo indesiderato dalle celle in Excel?
• Come rimuovere i numeri dalle celle che contengono testi e numeri in Excel?
• Come rimuovere solo il testo dalle celle che contengono numeri e testi in Excel?