Ga naar hoofdinhoud

Hoe snel alle rijen met fouten in Excel vinden en verwijderen?

Dit artikel introduceert de methoden waarmee u snel de lijst met de laatste of huidige geopende Excel-bestanden voor u kunt ophalen.


Zoek en verwijder alle cellen met fouten met Ga naar speciaal

In Excel kunt u de functie Ga naar speciaal toepassen om de cellen met fouten te zoeken en vervolgens de celinhoud te verwijderen.

1. Selecteer het bereik of het hele blad en druk op Ctrl + G om de gaan naar dialoogvenster.

2. klikken special aan de Ga naar speciaal dialoogvenster en controleer Formules optie, onder Formule optie, vink aan fouten alleen selectievakje.
doc zoek verwijder fouten 1

3. klikken OK, alle cellen met fouten zijn geselecteerd, druk op Verwijder sleutel om de fouten te verwijderen.
doc zoek verwijder fouten 2


Zoek en verwijder alle cellen met fouten door een geavanceerde tool

Als u snel alle cellen met fouten wilt vinden en verwijderen, vindt u hier een tool in Kutools for Excel kan u helpen om deze klus met klikken op te lossen.

Start uw Excel op met één Excel-pak
300+ professionele en gebruiksvriendelijke tools voor Excel 2019-2003

Na gratis Kutools voor Excel installeren (gratis proefperiode van 60 dagen), volg de onderstaande stappen.

1. Selecteer het bereik waarin u de foutcellen wilt vinden, klik op Kutools > kies > Selecteer Cellen met foutwaarde.
doc zoek verwijder fouten 3

2. Nu alle foutcellen zijn geselecteerd, klikt u op OK om het popping-remined-dialoogvenster te sluiten en druk vervolgens op Verwijder toets om de foutwaarden te verwijderen.
doc zoek verwijder fouten 4
doc zoek verwijder fouten 5


Verwijder alle rijen met fouten met VBA

In Excel is er een VBA-code die alle rijen met fouten in één keer kan verwijderen.

1. druk op Alt + F11 sleutel om in te schakelen Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Module om een ​​nieuw te maken Module scripts.

2. Kopieer en plak onderstaande code in het script.

VBA: foutrijen verwijderen

Sub DeleteErrorRows()
Dim xWs As Worksheet
Dim xRg As Range
Dim xFNum As Integer

   Set xWs = Application.ActiveSheet
Application.ScreenUpdating = False
    On Error Resume Next
    With xWs
        Set xRg = .UsedRange
        xRg.Select
        For xFNum = 1 To xRg.Columns.count
            With .Columns(xFNum).SpecialCells(xlCellTypeFormulas, xlErrors)
                .EntireRow.Delete
            End With
        Next xFNum
    End With
Application.ScreenUpdating = True
End Sub

3. druk op F5 key, dan zijn alle foutrijen verwijderd.


Zoek en verwijder alle rijen met fouten met Super Filter

De Super filter nut van Kutools for Excel kan rijen met fouten filteren, dan kun je ze verwijderen.

Na gratis Kutools voor Excel installeren (gratis proefperiode van 60 dagen), volg de onderstaande stappen.

1. Selecteer het gegevensbereik dat u gebruikt en klik op Koetools Plus > Super filter in staat te stellen Super Filter-paneel.
doc zoek verwijder fouten 6

2. In de Super filter voeg het criterium toe zoals hieronder:

1) Selecteer de kolomkop die u gebruikt om te filteren;

2) Selecteer Fout uit de tweede vervolgkeuzelijst;

3) Selecteer Is gelijk aan uit de derde vervolgkeuzelijst;

4) Selecteer Alle fouten uit de laatste vervolgkeuzelijst.
doc zoek verwijder fouten 7

3. klikken Ok om het criterium toe te voegen en klik vervolgens op FILTER om rijen met fouten te filteren.
doc zoek verwijder fouten 8

Nu zijn de rijen met fouten in de kolom Data gefilterd.
doc zoek verwijder fouten 9

4. Selecteer vervolgens deze rijen een voor een, klik met de rechtermuisknop om het contextmenu weer te geven, selecteer Rij verwijderen.
doc zoek verwijder fouten 10

Nu zijn de rijen met fouten verwijderd. Klik Clear knop in de Super filter om andere rijen weer te geven.
doc zoek verwijder fouten 11

Tip: Met Super filter paneel kunt u ook filteren #NAME? fout of # DIV / 0 of alleen een andere specifieke fout.
doc zoek verwijder fouten 12

Super filter is een professionele filtertool die rijen in meerdere criteria kan filteren en biedt het criterium dat Excel niet kan ondersteunen. Klik hier voor meer info.
doc find verwijder fouten


Andere bewerkingen (artikelen) met betrekking tot filteren

Filter gegevens op basis van een lijst
Deze zelfstudie biedt trucs voor het filteren van gegevens op basis van een bepaalde lijstgegevens in Excel.

Filtergegevens bevatten een asterisk
Zoals we weten, gebruiken we een asterisk-masker om tekens te plaatsen wanneer u gegevens filtert, maar hoe kunt u dat doen als u gegevens wilt filteren die een asterisk-masker bevatten? Dit artikel introduceert nu de methode voor gegevensfiltering als het een asterisk of andere speciale tekens in Excel bevat.

Filter gegevens met criteria of jokertekens
Als u gegevens met meerdere criteria wilt filteren, hoe kunt u dat dan doen? Deze tutorial gaat over het instellen van meerdere criteria en het filteren van gegevens in Excel.

Beste Office-productiviteitstools

🤖 Kutools AI-assistent: Een revolutie teweegbrengen in de data-analyse op basis van: Intelligente uitvoering   |  Genereer code  |  Aangepaste formules maken  |  Analyseer gegevens en genereer grafieken  |  Roep Kutools-functies aan...
Populaire functies: Zoek, markeer of identificeer duplicaten   |  Verwijder lege rijen   |  Combineer kolommen of cellen zonder gegevens te verliezen   |   Ronde zonder formule ...
Super opzoeken: Meerdere criteria VLookup    VLookup met meerdere waarden  |   VOpzoeken over meerdere bladen   |   Fuzzy opzoeken ....
Geavanceerde vervolgkeuzelijst: Maak snel een vervolgkeuzelijst   |  Afhankelijke vervolgkeuzelijst   |  Multi-select vervolgkeuzelijst ....
Kolom Beheerder: Voeg een specifiek aantal kolommen toe  |  Kolommen verplaatsen  |  Schakel de zichtbaarheidsstatus van verborgen kolommen in  |  Vergelijk bereiken en kolommen ...
Uitgelichte functies: Raster focus   |  Ontwerpweergave   |   Grote formulebalk    Werkmap- en bladbeheer   |  resource Library (Auto-tekst)   |  Datumkiezer   |  Combineer werkbladen   |  Cellen coderen/decoderen    Stuur e-mails per lijst   |  Super filter   |   Speciaal filter (filter vet/cursief/doorhalen...) ...
Top 15 gereedschapsets12 Tekst Tools (toe te voegen tekst, Tekens verwijderen, ...)   |   50+ tabel Types (Gantt Chart, ...)   |   40+ Praktisch Formules (Bereken leeftijd op basis van verjaardag, ...)   |   19 Invoeging Tools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...)   |   12 Camper ombouw Tools (Getallen naar woorden, Currency Conversion, ...)   |   7 Samenvoegen en splitsen Tools (Geavanceerd Combineer rijen, Gespleten cellen, ...)   |   ... en meer

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

Omschrijving


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!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
The VBA module script just closed all of my excel workbooks and closed the program. Everything was recovered upon re-opening Excel but the function of the module was not achieved. (Unless you count completely closing the workbook as "removing the error lines".)
This comment was minimized by the moderator on the site
Hi, Guy, sorry for that, you can try this code
Sub DeleteErrorRows()
Dim xWs As Worksheet
Dim xRg As Range
Dim xFNum As Integer
Dim xRS As Integer

Set xWs = Application.ActiveSheet
Application.ScreenUpdating = False
On Error Resume Next

    Set xRg = xWs.UsedRange
    xRS = xRg.Row
    For xFNum = xRg.Rows.Count To 1 Step -1
        Set xxx = xWs.Rows(xFNum + xRS - 1).SpecialCells(xlCellTypeFormulas, xlErrors)
        If (xWs.Rows(xFNum + xRS - 1).EntireRow.SpecialCells(xlCellTypeFormulas, xlErrors) Is Nothing) Then
        Else
            xWs.Rows(xFNum + xRS - 1).EntireRow.Delete
        End If
    Next xFNum

Application.ScreenUpdating = True
End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations