Come rimuovere celle o righe se non in grassetto in Excel?

Supponendo di avere un intervallo di dati con celle in grassetto e celle non in grassetto come mostrato nell'immagine sottostante, ora ciò di cui hai bisogno è rimuovere le celle o le righe se non in grassetto. Invece di rimuovere manualmente le celle non in grassetto una per una, questo tutorial introduce i trucchi per risolverlo rapidamente in Excel.

Rimuovi le righe se non sono in grassetto con VBA

Rimuovi le celle se non sono in grassetto con Trova e sostituisci e Seleziona Range Helper

Rimuovi righe / celle se non in grassetto con Kutools per Excel

---

v Rimuovi le righe se non sono in grassetto con VBA

Per rimuovere le righe se non in grassetto, puoi utilizzare un codice VBA da gestire.

1. Stampa F11 + alt tasti per abilitare il Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Modulo, quindi incollato sotto il codice VBA nel nuovo Modulo finestra.

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 Sub

3. Stampa F5 chiave per eseguire il codice VBA. Nel spuntare Kutools for Excel finestra di dialogo, specificare l'intervallo in cui rimuovere le righe senza celle in grassetto e fare clic su OK pulsante.

E poi puoi vedere le righe che non contengono celle in grassetto sono state rimosse

Nota: le righe possono essere rimosse solo quando tutte le celle nella stessa riga non sono in grassetto.

---

Rimuovi le celle se non sono in grassetto con Trova e sostituisci e Seleziona Range Helper

Se desideri solo rimuovere il contenuto delle celle dalle celle non in grassetto, puoi utilizzare la funzione Trova e sostituisci per selezionare prima le celle in grassetto, quindi utilizzare Kutools for Excel'S Seleziona Range Helper per invertire la selezione delle celle non in grassetto, quindi rimuovere il contenuto.

1. Selezionare l'intervallo di dati in cui si desidera rimuovere le celle non in grassetto e premere Ctrl + F abilitare Trova e sostituisci finestra di dialogo e fare clic su Opzioni pulsante. Vedi screenshot:

2. Clic Formato per andare al Trova formato dialog e sotto fonte scheda, selezionare Grassetto dal Stile carattere elenco. Vedi screenshot:

3. Clic OK > Trova tuttoe tutte le celle in grassetto sono elencate nel file Trova e sostituisci finestra di dialogo e premete Ctrl + A per selezionarli tutti, quindi chiudere il file Trova e sostituisci dialogo. Vedi screenshot:

4. Quindi mantenere selezionate queste celle e fare clic Kutools > Seleziona > Seleziona Range Helper. Vedi screenshot:

5. Nella finestra di dialogo popping, seleziona Selezione inversa prima opzione, quindi selezionare l'intervallo di dati originale. Ora puoi vedere che la selezione è invertita. Vedi screenshot:

6. Clic Chiudi. Ora premi Elimina tasto per rimuovere il contenuto della cella dalle celle non in grassetto.

---

Rimuovi righe / celle se non in grassetto con Kutools per Excel

I metodi sopra indicati non sono abbastanza facili, in questo caso puoi usare Kutools for Excel'S Seleziona Celle con formato utilità per identificare rapidamente le celle non in grassetto e quindi rimuoverle.

Dopo installazione gratuita Kutools per Excel, per favore fai come di seguito:

1. Selezionare l'intervallo di dati necessario e fare clic su Kutools > Seleziona > Seleziona Celle con formato. Vedi screenshot:

2. Nella finestra di dialogo popping, fare clic su Scegli Formato dalla cella per selezionare una cella non in grassetto dall'intervallo di dati, quindi selezionare Grassetto solo dall'elenco sottostante nella sezione Caratteri. Vedi screenshot:

3. Clic Oke viene visualizzata una finestra di dialogo per ricordare il numero di celle selezionate, basta fare clic Sì per chiuderlo.

Ora tutte le celle non in grassetto sono selezionate e premi Elimina tasto per rimuovere il contenuto della cella. Oppure, se desideri rimuovere le righe non in grassetto, fai clic con il pulsante destro del mouse su una qualsiasi delle celle selezionate e seleziona Elimina > Intera riga. Vedi screenshot:

  Rimuovi celle / righe se non visualizzate in grassetto

---

Articoli relativi:

• Come convertire i collegamenti ipertestuali in testo normale in Excel?
• Come contare se le celle iniziano o finiscono con un testo specifico in Excel?
• Come contare e rimuovere i duplicati da un elenco in Excel?