For eksempel, vil jeg finne alle de verdier som er større enn 500, og erstatte dem med 0.
følgende VBA-kode kan hjelpe deg å erstatte verdiene som større eller mindre enn en bestemt verdi på en, kan du gjøre som følger:
1. Hold nede ALT + F11-tastene, og det åpner Microsoft Visual Basic for Applications vinduet.
2. Klikk Sett > Modul, og lim inn følgende kode i modulen Window
VBA-kode. Finn og erstatt verdier større eller mindre enn en bestemt verdi
Sub FindReplace () 'Update 20150423Dim RNG Som RangeDim WorkRng Som RangeOn Error Resume NextxTitleId = " KutoolsforExcel "Set WorkRng = Application.SelectionSet WorkRng = Application.InputBox (" Range ", xTitleId, WorkRng.Address, Type: = 8) For Hver RNG I WorkRng Hvis Rng.Value > 500 Så Rng.Value = 0 End IfNextEnd Sub3. Deretter trykker F5 for å kjøre denne koden, og velg utvalg data som du ønsker å skifte fra teksten boksen, se skjermbilde:
4. Og klikk deretter på OK, og du kan se alle de verdier som er større enn 500 har blitt erstattet med 0.
Merk: I koden ovenfor, kan du endre følgende variabler til ønsket
Hvis RNG.. Verdi > 500 Så
Rng.Value = 0
Finne og erstatte verdier større enn /mindre enn en bestemt verdi med Kutools for Excel
Hvis du ikke er kjent med koden, jeg kan snakke om en hendig Verktøy- Kutools for Excel, med sine velge bestemte celler har, kan du raskt velge cellene som du trenger, og deretter erstatte dem med en gang
Kutools for Excel. med mer enn 120 praktiske Excel-tillegg, gratis å prøve uten begrensning i 60 dager. Få det nå . Gå til DownloadFree Trial 60 daysPurchasePayPal /MyCommerce Etter installering Kutools for Excel, gjør som følgende trinn :( Gratis Last ned Kutools for Excel nå)
1. Velg dataområdet som du vil finne og erstatte.
2. Klikk Kutools > Velg > Velg spesifikke celler, se skjermbilde:
tre. I de velge bestemte celler i dialogboksen, klikker Cell alternativ under Selection type, og velg Større enn fra den spesifikke type falle ned, og angi verdien du vil bruke, i tekstboksen foruten Større enn, se skjermbilde:
4. Klikk deretter på OK-knappen, alle cellene som er større enn 500 har blitt valgt umiddelbart, deretter inn verdien du trenger for å erstatte med, og trykk Ctrl + Enter-tastene sammen, har alle de valgte verdiene er erstattet på samme tid. Se skjermbilder:
Merk: I Select spesifikke celler dialogboksen, kan du bruke andre kriterier, for eksempel mindre enn, lik, Inneholder, og så videre
Klikk for å vite mer detaljer om denne utvalgt spesifikke celler funksjonen av. Kutools for Excel. Bedrifter Den følgende problemer kan også løses med denne Velg spesifikk Cells har:?
Hvordan finne og erstatte eksakt match i Excel
Hvordan finne eller velge celler basert på visse kriterier i Excel
How å velge celler med bestemt tekst i Excel?
gratis nedlasting Kutools for Excel Nå
Datamaskin læring 