Come rimuovere celle o righe che non sono in grassetto in Excel?
Si supponga di avere un intervallo di dati con Grassetto e non Grassetto, come mostrato nello screenshot seguente. Ora è necessario rimuovere le celle o le righe se non sono in grassetto. Invece di eliminare manualmente, una per una, le celle non Grassetto, questa guida illustra alcuni trucchi per risolvere rapidamente il problema in Excel.
Rimuovi righe se non in grassetto con VBA
Rimuovi celle se non in grassetto con Trova e sostituisci e Assistente intervallo
Rimuovi righe/celle se non in grassetto con Kutools per Excel 
v Rimuovi righe se non in grassetto con VBA
Per eliminare le righe che non sono in grassetto, puoi utilizzare un codice VBA.
1. Premere i tasti Alt + F11 per aprire la finestra di Microsoft Visual Basic for Applications.
2. Fare clic su Inserisci > Modulo, quindi incollare il seguente codice VBA nella nuova finestra del Modulo.
VBA: Rimuovi le righe se non sono in grassetto.
Sub DeleteNonBolded()
'UpdatebyKutoolsforExcel20151116
Dim xRg As Range
Dim xDelRg As Range
Dim xAddress As String
Dim xUpdate As Boolean
Dim I As Long
Dim xBold As Variant
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select a range", "Kutools for Excel", xAddress, , , , , 8)
Set xRg = Application.Intersect(xRg, ActiveSheet.UsedRange)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "This VBA cannot support multiple range", , "Kutools for Excel"
Exit Sub
End If
xUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
For I = 1 To xRg.Rows.Count
xBold = xRg.Rows(I).Cells.Font.Bold
If TypeName(xBold) = "Boolean" Then
If xBold = False Then
If xDelRg Is Nothing Then
Set xDelRg = xRg.Rows(I).EntireRow
Else
Set xDelRg = Union(xRg.Rows(I).EntireRow, xDelRg)
End If
End If
End If
Next
xDelRg.Delete
Application.ScreenUpdating = xUpdate
End Sub3. Premere il tasto F5 per eseguire il codice VBA. Nella finestra di dialogo Kutools per Excel che compare, specificare l’intervallo da cui rimuovere le righe senza grassetto e fare clic sul pulsante OK.
A questo punto, noterai che sono state rimosse tutte le righe che non contengono del testo in grassetto.
Nota: le righe vengono rimosse solo quando nessuna cella della stessa riga è in grassetto.
Sblocca la magia di Excel con KUTOOLS AI
- Esecuzione intelligente: Esegui operazioni sulle celle, analizza i dati e crea grafici, il tutto con comandi semplici e intuitivi.
- Formule personalizzate: crea formule su misura per ottimizzare i tuoi flussi di lavoro.
- Codifica VBA: Scrivi e implementa codice VBA in modo semplice e immediato.
- Interpretazione delle formule: Comprendi con facilità anche le formule più complesse.
- Traduzione del testo: Superate le barriere linguistiche direttamente nei vostri fogli di calcolo.
Rimuovi celle se non in grassetto con Trova e sostituisci e Assistente intervallo
Se desideri rimuovere soltanto il contenuto delle celle non in grassetto, puoi utilizzare la funzione Trova e sostituisci per selezionare prima le celle in grassetto, quindi usare lo strumento Kutools per Excel di Assistente intervallo per invertire la selezione e cancellare il contenuto delle celle non in grassetto.
1. Seleziona l’intervallo di dati da cui desideri rimuovere le celle non in grassetto, premi Ctrl + F per aprire la finestra di dialogo Trova e sostituisci, quindi fai clic sul pulsante Opzioni. Vedere lo screenshot:
2. Fare clic su Formato per aprire la finestra di dialogo Trova Formato, quindi, nella scheda Carattere, selezionare Grassetto dall’elenco Stile Carattere. Vedere lo screenshot:
3. Fare clic su OK > Trova tutto. Tutte le celle in grassetto verranno elencate nella finestra di dialogo Trova e sostituisci; premere quindi Ctrl + A per selezionarle tutte e chiudere la finestra di dialogo Trova e sostituisci. Vedere lo screenshot:
4. Mantenendo selezionate queste celle, fai clic su Kutools > Seleziona > Assistente intervallo. Vedi screenshot:
5. Nella finestra di dialogo visualizzata, selezionare innanzitutto l’opzione Selezione Inversa, quindi scegliere Intervallo Dati Originale. A questo punto la selezione risulterà invertita. Vedere lo screenshot:
6. Fare clic su Chiudi, quindi premere il tasto Canc per rimuovere il contenuto delle celle non in grassetto.
Rimuovi righe/celle se non in grassetto con Kutools per Excel
I metodi precedenti non sono sufficientemente semplici? In tal caso, puoi utilizzare lo strumento Kutools per Excel con la funzione Seleziona celle con formato simile per identificare rapidamente le celle non in grassetto e rimuoverle.
Dopo aver installato gratuitamenteKutools per Excel, procedere come segue:
1. Seleziona l’intervallo di dati desiderato e fai clic su Kutools > Seleziona > Seleziona celle con formato simile. Vedi lo screenshot:
2. Nella finestra di dialogo visualizzata, fai clic sul pulsante Seleziona formato dalla cella per selezionare una cella non in grassetto dall’Intervallo dati, quindi spunta solo l’opzione Grassetto nell’elenco sottostante, nella sezione Carattere. Vedere lo screenshot:
3. Fare clic su OK; comparirà una finestra di dialogo che indica il numero di celle selezionate. Basta semplicemente fare clic su Sì per chiuderla.
Ora tutte le celle non in grassetto sono selezionate; premere il tasto Canc per rimuoverne il contenuto. In alternativa, per eliminare le righe non in grassetto, fare clic con il tasto destro su una qualsiasi delle celle selezionate e scegliere Elimina > Riga intera. Vedere gli screenshot:
Demo: Rimuovi celle/righe se non in grassetto
Articoli correlati:
- Come si converte un collegamento ipertestuale in testo normale in Excel?
- Come contare se le celle iniziano o terminano con un testo specifico in Excel?
- Come contare e Rimuovi duplicati da un elenco in Excel?
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 oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- 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 all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi