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 Bold van het 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 Verwijder 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 Bold 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 Verwijder 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 Verwijder > 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?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
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 honderden muisklikken voor u elke dag!