Come rimuovere o eliminare tutti i testi oi 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 codice VBA
Rimuovi tutti i testi barrati dalle celle con codice VBA
Il codice VBA di seguito può aiutarti a rimuovere tutti i testi nelle celle che sono state contrassegnate con barrato. Si prega di fare quanto segue.
1. Nel foglio di lavoro contiene i testi barrati che è necessario rimuovere, premere il tasto altro + F11 tasti contemporaneamente per aprire il file Microsoft Visual Basic, Applications Edition finestra.
2. Nel Microsoft Visual Basic, Applications Edition finestra, fare clic Inset > Moduli. Quindi copia e incolla sotto il 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 F5 o fare clic su Correre pulsante per eseguire il codice. Nel spuntare Kutools for Excel finestra di dialogo, selezionare l'intervallo che contiene i testi barrati da rimuovere, quindi fare clic su OK pulsante. Vedi screenshot:
Quindi tutti i testi contrassegnati con un barrato vengono rimossi dalle celle immediatamente come mostrato nell'immagine sottostante.
Articoli correlati:
- Come rimuovere il testo prima o dopo un carattere specifico in Excel?
- Come rimuovere il testo indesiderato dalla cella 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 ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!