Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe vind en vervang je waarden groter dan / kleiner dan een specifieke waarde in Excel?

Misschien staan ​​er meerdere gegevens in uw werkblad. U wilt nu alle cellen vinden die de waarde groter of kleiner dan een specifiek getal bevatten en deze vervolgens vervangen door een andere waarde die u tegelijk nodig hebt. De normale Find and Replace-functie wordt niet toegepast om dit probleem op te lossen. Heeft u nog andere goede suggesties om met deze taak om te gaan?

Zoek en vervang waarden groter dan / kleiner dan een specifieke waarde met VBA-code

Zoek en vervang waarden groter dan / kleiner dan een specifieke waarde met Kutools voor Excel


Zoek en selecteer specifieke cellen en vervang ze door een andere waarde:

Kutools for Excel's Selecteer specifieke cellen functie kan u helpen bij het vinden en selecteren van de specifieke cellen, en dan kunt u ze vervangen door een andere waarde of een opmaak maken voor de geselecteerde cellen die u nodig hebt. Download nu Kutools voor Excel.

doc vervangt groter dan 8-8

Kutools for Excel: met meer dan 200 handige Excel-add-ins, gratis om zonder beperking in 60-dagen te proberen. Download en gratis proef nu!



Ik zal bijvoorbeeld alle waarden vinden die groter zijn dan 500, en deze vervangen door 0.

doc vervangt groter dan 1

De volgende VBA-code kan u helpen om de waarden die groter of kleiner zijn dan een specifieke waarde in één te vervangen, gelieve als volgt te doen:

1. Houd de toets ingedrukt ALT + F11 toetsen, en het opent de Microsoft Visual Basic voor toepassingen venster.

2. Klikken bijvoegsel > moduleen plak de volgende code in de module Venster.

VBA-code: zoek en vervang waarden groter of kleiner dan een specifieke waarde

Sub FindReplace()
'Update 20150423
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    If Rng.Value > 500 Then
        Rng.Value = 0
    End If
Next
End Sub

3. Druk vervolgens op F5 sleutel om deze code uit te voeren en selecteer de bereikgegevens die u wilt vervangen uit het promptvenster, zie screenshot:

doc vervangt groter dan 2

4. En klik vervolgens op OKen u kunt alle waarden zien die groter zijn dan 500 zijn vervangen door 0.

doc vervangt groter dan 3

Notes: In de bovenstaande code kunt u de volgende variabelen naar wens wijzigen.

  • Als Rng.Value > 500 Dan
  • Rng.Value = 0

  • Als je niet bekend bent met de code, kan ik praten over een handige tool- Kutools for Excel, Met Selecteer specifieke cellen functie, kunt u snel de cellen selecteren die u nodig hebt en deze in één keer vervangen.

    Kutools for Excel : met meer dan 300 handige Excel-invoegtoepassingen, gratis om zonder beperking te proberen in 60-dagen.

    Na het installeren van Kutools for Excel, als de volgende stappen:

    1. Selecteer het gegevensbereik dat u wilt zoeken en vervangen.

    2. Klikken Kutools > kiezen > Selecteer specifieke cellenzie screenshot:

    doc vervangt groter dan 4 4

    3. In de Selecteer specifieke cellen dialoogvenster, klik Cel optie onder Selectie typeen kies Groter dan van de Specifiek type vervolgkeuzelijst en voer de waarde in die u ook in het tekstvak wilt gebruiken Groter danzie screenshot:

    doc vervangt groter dan 5

    4. Dan klikken OK knop, alle cellen groter dan 500 zijn onmiddellijk geselecteerd, voer dan de waarde in waarmee u wilt vervangen en druk op Ctrl + Enter sleutels samen, alle geselecteerde waarden zijn op hetzelfde moment vervangen. Zie screenshots:

    doc vervangt groter dan 6  2 doc vervangt groter dan 7

    Notes: In de Selecteer specifieke cellen dialoogvenster kunt u andere criteria gebruiken, zoals Minder dan, Is gelijk aan, Bevat, Enzovoort.

    Klik om meer details te weten over deze functie Selecteer specifieke cellen van Kutools voor Excel.

    Download en proef Kutools nu voor Excel!


    Kutools for Excel: met meer dan 200 handige Excel-add-ins, gratis om zonder beperking in 60-dagen te proberen. Download en gratis proef nu!


    Gerelateerde artikelen:

    Hoe exact zoeken in Excel te vinden en te vervangen?

    Hoe tekst vervangen door overeenkomstige afbeeldingen in Excel?

    Hoe vul je kleur in Excel op?


    Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

    • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
    • Cellen / rijen / kolommen samenvoegen en gegevens bewaren; Inhoud gesplitste cellen; Combineer dubbele rijen en som / gemiddelde... voorkomen dubbele cellen; Ranges vergelijken...
    • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
    • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
    • Favoriete en snel formules invoegen, Bereiken, grafieken en afbeeldingen; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
    • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
    • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering 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...
    • Werkt met Office 2007-2019 en 365 en ondersteunt alle talen. Het is eenvoudig te implementeren in uw bedrijf. Volledige functionaliteit 60-daagse gratis proefversie.
    kte-tab 201905

    Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

    • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, 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 verlaagt dagelijks honderden muisklikken voor u!
    Officetab onderaan
    Say something here...
    symbols left.
    You are guest ( Sign Up? )
    or post as a guest, but your post won't be published automatically.
    Loading comment... The comment will be refreshed after 00:00.
    • To post as a guest, your comment is unpublished.
      Olesia · 2 months ago
      If only there was a way to do the same without losing formulas(
    • To post as a guest, your comment is unpublished.
      Shervin · 3 years ago
      It's really awesome!!! I love it!