Note: The other languages of the website are Google-translated. Back to English

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 > Modulo. 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:


I migliori strumenti per la produttività in ufficio

Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%

  • Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
  • Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
  • Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
  • Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
  • Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
  • Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
  • Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
  • Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
  • Più di 300 potenti funzionalità. Supporta Office/Excel 2007-2021 e 365. Supporta tutte le lingue. Facile implementazione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.
scheda kte 201905

Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il 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!
fondo officetab
Commenti (10)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Questo commento è stato fatto dal moderatore sul sito
Questo non funziona. Excel va in Non risponde.
Questo commento è stato fatto dal moderatore sul sito
Buona giornata,
Ci dispiace per l'inconvenienza. Forniresti la tua versione di Office? Grazie per il tuo commento.
Questo commento è stato fatto dal moderatore sul sito
Anch'io.

Sto usando Office 365 ProPlus
Questo commento è stato fatto dal moderatore sul sito
Funziona su piccola scala. Presumo che il motivo per cui non risponde sia perché la Macro impiega un'eternità quando hai molti dati da superare. Questa macro sta controllando ogni singolo carattere per barrare.

Consiglierei di aggiungere codice che riformatta la cella al termine perché avevo diverse celle in cui il codice rimuoveva il testo barrato ma il testo rimanente era ancora barrato. Credo che ciò sia dovuto al fatto che la formattazione dell'intera cella è stata barrata con il testo non barrato formattato in modo diverso, quindi solo un FYI.
Questo commento è stato fatto dal moderatore sul sito
può essere fatto tramite python, panda?
Se si qualcuno mi può aiutare su come implementarlo?
Questo commento è stato fatto dal moderatore sul sito
Ciao Girish,
Il codice non è stato testato in Python, Pandas. Mi dispiace non poterti aiutare con quello. Grazie per aver commentato.
Questo commento è stato fatto dal moderatore sul sito
Lo uso per tutta la colonna e il mio excel non torna mai più....
Questo commento è stato fatto dal moderatore sul sito
ciao san,
Forniresti la versione di Excel che stai utilizzando?
Il codice funziona bene nel mio caso.
Ci scusiamo per l'inconveniente.
Questo commento è stato fatto dal moderatore sul sito
Ehi ragazzi, questo ha funzionato per me, ma in alcuni casi cambia in qualche modo il testo che non è formattato come barrato come barrato. Facile soluzione per tornare indietro e controllare a campione i dati in istanze specifiche e annullare la barratura nell'intervallo.
Questo commento è stato fatto dal moderatore sul sito
Ciao, quale versione di Excel stai usando?
Non ci sono ancora commenti pubblicati qui
Si prega di lasciare i commenti in inglese
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite

Seguici

Copyright © 2009 - www.extendoffice.com. | Tutti i diritti riservati. Offerto da ExtendOffice, | Mappa del sito
Microsoft e il logo Office sono marchi o marchi registrati di Microsoft Corporation negli Stati Uniti e / o in altri paesi.
Protetto da Sectigo SSL