Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako najti in nadomestiti več vrednosti hkrati v Excelu?

doc več najdi zamenjaj 1

Kot vsi poznamo, lahko uporabimo funkcijo Poišči in zamenjaj, da poiščemo več enake celice in jih nadomestimo z vrednostjo, kot jo potrebujete. Včasih pa morate istočasno uporabiti veliko zamenjavo. Na primer, imam vrsto podatkov in sedaj želim zamenjati vse jabolke z rdečimi jabolkami, pomarančami do zelenimi pomarančami, bananami do rumenimi bananami in tako naprej, kot kažejo naslednja posnetka zaslona, ​​ali imate kakšne dobre ideje za rešitev te naloge v Excel?

Poiščite in zamenjajte več vrednosti hkrati s kodo VBA


Poiščite in nadomestite v odprtih delovnih zvezkih ali več delovnih listih:

Kutools za ExcelJe Poišči in zamenjaj funkcija vam lahko pomaga najti in zamenjati vrednosti iz odprtih delovnih zvezkov ali posebnih delovnih listov, ki jih potrebujete.

doc-multiple-find-and-replace-6

puščica modra desno mehurček Poiščite in zamenjajte več vrednosti hkrati s kodo VBA


Če ste utrujeni od iskanja in znova nadomestite vrednosti, lahko naslednja koda VBA pomaga zamenjati več vrednosti s potrebnimi besedili hkrati.

1. Ustvarite pogoje, ki jih želite uporabiti, ki vsebujejo izvirne vrednosti in nove vrednosti. Prikaz slike:

doc več najdi zamenjaj 2

2. Potem pa drži ALT + F11 tipke za odpiranje Okno Microsoft Visual Basic za aplikacije.

3. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v okno Modul.

VBA koda: poiščite in zamenjajte več vrednosti hkrati

Sub MultiFindNReplace()
'Update 20140722
Dim Rng As Range
Dim InputRng As Range, ReplaceRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Original Range ", xTitleId, InputRng.Address, Type:=8)
Set ReplaceRng = Application.InputBox("Replace Range :", xTitleId, Type:=8)
Application.ScreenUpdating = False
For Each Rng In ReplaceRng.Columns(1).Cells
    InputRng.Replace what:=Rng.Value, replacement:=Rng.Offset(0, 1).Value
Next
Application.ScreenUpdating = True
End Sub

4. Nato pritisnite F5 Če želite zagnati to kodo, v pozivnem oknu za izpisano, navedite obseg podatkov, ki ga želite zamenjati z novimi vrednostmi.

doc več najdi zamenjaj 3

5. Kliknite OKin se prikaže drugo okno za opozorilo, ki vas opomni, da izberete merila, ki ste jih ustvarili v koraku 1. Prikaz slike:

doc več najdi zamenjaj 4

6. Nato kliknite OK, so bile vse specifične vrednosti zamenjane z novimi vrednostmi, kot jih potrebujete takoj.

doc več najdi zamenjaj 5


Sorodni članki:

Kako najti in nadomestiti določeno besedilo v besedilnih poljih?

Kako najti in zamenjati besedilo v naslovih grafikonov v Excelu?

Kako najti in zamenjati besedilo v komentarjih v Excelu?

Kako spremeniti več poti hiperpovezave naenkrat v Excelu?



Priporočena orodja za produktivnost za Excel

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
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.
    Jairo L. · 1 months ago
    Muchas Gracias me fue de mucha utilidad el codigo.
  • To post as a guest, your comment is unpublished.
    iris · 2 months ago
    it works! THANK YOU SO MUCH!
  • To post as a guest, your comment is unpublished.
    Jon · 5 months ago
    Макрос не работает корректно !!! Пытался подобным образом заменить символы, но не различаются маленькие и большие буквы.
  • To post as a guest, your comment is unpublished.
    Ugnė Vitkutė · 6 months ago
    Hi, I would like to replace whole cells in the entire Excel file (with many sheets). What should be replace in the Original Range to do that? Thanks.
  • To post as a guest, your comment is unpublished.
    Ugne · 6 months ago
    What should be replaced in the code to run it on all the Excel file's sheets?