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 Sub3. 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.
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?
I migliori strumenti per la produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un'efficienza mai vista prima. Kutools per Excel offre oltre300 funzionalità avanzate per aumentare la produttività e farti risparmiare tempo. Clicca qui per ottenere la funzione di cui hai più bisogno...
Office Tab porta le schede su Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra invece che in nuove finestre.
- Aumenta la produttività del50% e riduce centinaia di clic del mouse ogni giorno!
Tutti gli add-in Kutools. Un solo programma di installazione
La suite Kutools for Office include add-in per Excel, Word, Outlook & PowerPoint più Office Tab Pro, ideale per i team che lavorano su più app di Office.
- Suite tutto-in-uno — Add-in per Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un solo programma di installazione, una sola licenza — configurazione in pochi minuti (pronto per MSI)
- Funzionano meglio insieme — produttività ottimizzata su tutte le app Office
- Prova completa30 giorni — nessuna registrazione, nessuna carta di credito
- Massimo risparmio — costa meno rispetto all’acquisto singolo degli add-in