Hoe verwijdert u cellen of rijen in Excel die niet vetgedrukt zijn?
Stel dat u een gegevensbereik hebt met vetgedrukte en niet-vetgedrukte cellen, zoals in de onderstaande schermafbeelding. Wat u nu nodig heeft, is het verwijderen van de cellen of rijen die niet vetgedrukt zijn. In plaats van deze handmatig één voor één te verwijderen, biedt deze handleiding handige trucs om dit snel en eenvoudig op te lossen in Excel.
Rijen verwijderen als ze niet vetgedrukt zijn met VBA
Cellen verwijderen als ze niet vetgedrukt zijn met Zoeken en Vervangen en Bereikhelper
Rijen/cellen verwijderen als ze niet vetgedrukt zijn met Kutools voor Excel 
v Rijen verwijderen als ze niet vetgedrukt zijn met VBA
Om rijen te verwijderen die niet vetgedrukt zijn, kunt u een VBA-code gebruiken.
1. Druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module en plak vervolgens de onderstaande VBA-code in het nieuwe Module-venster.
VBA: Verwijder rijen die 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 Sub3. Druk op F5 om de VBA-code uit te voeren. In het verschijnende Kutools voor Excel-dialoogvenster geeft u het bereik op waaruit u rijen zonder vetgedrukt wilt verwijderen en klikt u op de knop OK.
Vervolgens ziet u dat alle rijen zonder vetgedrukte tekst zijn verwijderd.
Opmerking: rijen kunnen alleen worden verwijderd als geen enkele cel in die rij vetgedrukt is.
Ontgrendel de magie van Excel met KUTOOLS AI
- Slimme uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak grafieken — allemaal met eenvoudige opdrachten.
- aangepaste formules: Genereer op maat gemaakte formules om uw workflows te stroomlijnen.
- VBA-programmeren: Schrijf en implementeer VBA-code moeiteloos.
- Formule-uitleg: Begrijp complexe formules moeiteloos.
- Tekstvertaling: Doorbreek taalbarrières in uw spreadsheets.
Cellen verwijderen als ze niet vetgedrukt zijn met Zoeken en Vervangen en Bereikhelper
Als u alleen de celinhoud van niet-vetgedrukte tekst wilt verwijderen, gebruikt u eerst de functie Zoeken en Vervangen om de vetgedrukte tekst te selecteren. Gebruik daarna Kutools voor Excel’s Bereikhelper om de niet-vetgedrukte cellen omgekeerd te selecteren en verwijder vervolgens de inhoud.
1. Selecteer het gegevensbereik waaruit u de niet-vetgedrukte tekst wilt verwijderen en druk op Ctrl + F om het dialoogvenster Zoeken en Vervangen te openen. Klik op de knop Opties. Zie schermafbeelding:
2. Klik op Opmaak om naar het dialoogvenster Zoekformaat te gaan. Selecteer onder het tabblad Lettertype de optie Vet in de lijst Lettertype Stijl. Zie schermafbeelding:
3. Klik op OK > Alles zoeken. Alle vetgedrukte teksten worden nu weergegeven in het Zoeken en Vervangen-dialoogvenster. Druk op Ctrl + A om ze allemaal te selecteren en sluit vervolgens het Zoeken en Vervangen-dialoogvenster. Zie schermafbeelding:
4. Houd deze cellen geselecteerd en klik op Kutools > Selecteren > Bereikhelper. Zie schermafbeelding:
5. Schakel in het verschijnende dialoogvenster eerst de optie Omgekeerde Selectie in en selecteer daarna het oorspronkelijke gegevensbereik. Nu ziet u dat de selectie is omgekeerd. Zie schermafbeelding:
6. Klik op Sluiten. Druk nu op Verwijderen om de celinhoud van het niet-vetgedrukte gedeelte te verwijderen.
Rijen/cellen verwijderen als ze niet vetgedrukt zijn met Kutools voor Excel
De bovenstaande methoden zijn niet eenvoudig genoeg. In dat geval kunt u het hulpprogramma Kutools voor Excel’s functie Selecteer cellen met een vergelijkbaar formaat gebruiken om snel niet-vetgedrukte tekst te identificeren en deze vervolgens te verwijderen.
Na gratis installerenvan Kutools voor Excel, gaat u als volgt te werk:
1. Selecteer het gegevensbereik dat u nodig hebt en klik op Kutools > Selecteren > Selecteer cellen met een vergelijkbaar formaat. Zie schermafbeelding:
2. Klik in het verschijnende dialoogvenster op de knop Selecteer formaat vanaf cel om een niet-vetgedrukte cel te selecteren uit het gegevensbereik. Schakel vervolgens Vet in bij Lettertype hieronder. Zie schermafbeelding:
3. Klik op OK. Er verschijnt een dialoogvenster met het aantal geselecteerde cellen; klik gewoon op Ja om dit te sluiten.
Nu zijn alle niet-vetgedrukte cellen geselecteerd. Klik op Verwijderen om de celinhoud te wissen. Als u de niet-vetgedrukte rijen wilt verwijderen, klikt u met de rechtermuisknop op een willekeurige geselecteerde cel en kiest u Verwijderen > Gehele rij. Zie schermafbeeldingen:
Demo: Cellen/rijen verwijderen als ze niet vetgedrukt zijn
Gerelateerde artikelen:
- Hoe converteer je hyperlinks naar platte tekst in Excel?
- Hoe telt u cellen die beginnen of eindigen met een specifieke tekst in Excel?
- Hoe telt en verwijdert u dubbele items uit een lijst in Excel?
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins