Hoe cellen of rijen te verwijderen als ze niet vet zijn in Excel?

Stel dat u een gegevensbereik heeft met vetgedrukte cellen en niet vetgedrukte cellen, zoals onderstaand screenshot, nu moet u de cellen of rijen verwijderen als ze niet vetgedrukt zijn. In plaats van niet-vetgedrukte cellen handmatig een voor een te verwijderen, introduceert deze zelfstudie de trucs waarmee u het snel in Excel kunt oplossen.

Verwijder rijen als ze niet vetgedrukt zijn met VBA

Verwijder cellen als ze niet vetgedrukt zijn met Zoeken en vervangen en Bereikhulp selecteren

Verwijder rijen / cellen indien niet vetgedrukt met Kutools voor Excel

---

v Verwijder rijen als ze niet vetgedrukt zijn met VBA

Om rijen te verwijderen als ze niet vetgedrukt zijn, kunt u een VBA-code gebruiken om te verwerken.

1. druk op F11 + Alt toetsen om het Microsoft Visual Basic voor toepassingen venster.

2. klikken Invoegen > module, vervolgens geplakt onder VBA-code naar het nieuwe module venster.

VBA: verwijder rijen als ze niet vetgedrukt zijn.

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. druk op F5 sleutel om de VBA-code uit te voeren. Bij het opduiken Kutools for Excel dialoogvenster, geef het bereik op waarin u rijen zonder vetgedrukte cellen wilt verwijderen en klik op de OK knop.

En dan kun je zien dat de rijen die geen vetgedrukte cellen bevatten, zijn verwijderd

Opmerking: de rijen kunnen alleen worden verwijderd als niet alle cellen in dezelfde rij vetgedrukt zijn.

---

Verwijder cellen als ze niet vetgedrukt zijn met Zoeken en vervangen en Bereikhulp selecteren

Als u alleen de celinhoud wilt verwijderen uit niet vetgedrukte cellen, kunt u de functie Zoeken en vervangen gebruiken om eerst de vetgedrukte cellen te selecteren en vervolgens gebruiken Kutools for Excel's Selecteer Range Helper om het selecteren van niet-vetgedrukte cellen om te keren en verwijder vervolgens de inhoud.

1. Selecteer het gegevensbereik waarvan u niet-vetgedrukte cellen wilt verwijderen en druk op Ctrl + F in staat te stellen Zoeken en vervangen dialoogvenster en klik op Opties knop. Zie screenshot:

2. klikken Formaat naar de Zoek opmaak dialoog, en onder doopvont tab, selecteer pin van de Lettertype lijst. Zie screenshot:

3. klikken OK > Vind alle, en alle vetgedrukte cellen worden vermeld in de Zoeken en vervangen dialoogvenster en druk op Ctrl + A om ze allemaal te selecteren en sluit vervolgens het Zoeken en vervangen dialoog. Zie screenshot:

4. Houd deze cellen vervolgens geselecteerd en klik op Kutools > kies > Selecteer Range Helper. Zie screenshot:

5. Vink in het popping-dialoogvenster aan Inverse selectie optie en selecteer vervolgens het oorspronkelijke gegevensbereik. Nu kun je zien dat de selectie is omgekeerd. Zie screenshot:

6. klikken Sluiten. Druk nu op Delete toets om de celinhoud te verwijderen uit de niet vetgedrukte cellen.

---

Verwijder rijen / cellen indien niet vetgedrukt met Kutools voor Excel

De bovenstaande methoden zijn niet eenvoudig genoeg, in dit geval kunt u Kutools for Excel's Selecteer Cellen met indeling hulpprogramma om snel niet-vetgedrukte cellen te identificeren en ze vervolgens te verwijderen.

Kutools for Excel, met meer dan 300 handige functies, maakt uw werk eenvoudiger.

Gratis download gratis volledig uitgerust in 30 dagen

Na gratis installeren Kutools voor Excel, doe het als volgt:

1. Selecteer het gegevensbereik dat u nodig heeft en klik op Kutools > kies > Selecteer Cellen met indeling. Zie screenshot:

2. Klik in het popping-dialoogvenster op Kies Opmaak vanuit cel om een ​​niet-vetgedrukte cel uit het gegevensbereik te selecteren en vink vervolgens aan pin alleen uit de onderstaande lijst in de sectie Lettertype. Zie screenshot:

3. klikken Ok, en er verschijnt een dialoogvenster om u aan het aantal geselecteerde cellen te herinneren, klik gewoon Ja om het te sluiten.

Nu zijn alle niet vetgedrukte cellen geselecteerd en druk op Delete toets om de celinhoud te verwijderen. Of als u de niet vetgedrukte rijen wilt verwijderen, klikt u met de rechtermuisknop op een van de geselecteerde cellen en selecteert u Delete > Hele rij. Zie screenshots:

  Verwijder cellen / rijen indien niet vetgedrukt

---

Relatieve artikelen:

• Hoe hyperlinks naar platte tekst in Excel te converteren?
• Hoe te tellen of cellen beginnen met of eindigen met specifieke tekst in Excel?
• Hoe duplicaten uit een lijst in Excel te tellen en te verwijderen?

---