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 volledige functionaliteit 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:

Relatieve artikelen:

De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.

Lees verder... Gratis download... Aankoop...

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken voor u!