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. | ||
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?
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.

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!

You are guest
or post as a guest, but your post won't be published automatically.
Be the first to comment.