Hogyan lehet egyszerre több értéket megtalálni és lecserélni az Excelben?
Mint mindannyian tudjuk, használhatjuk a Keresés és csere funkciót, hogy több azonos cellát megtalálhassunk, és lecserélhessük őket egy szükséges értékre. De néha egyszerre kell alkalmazni a sok-sok cserét. Például számos adattal rendelkezem, és most az összes almát piros almára, a narancsot zöld narancsra, a banánt sárga banánra és így tovább szeretném lecserélni, a következő képernyőképek szerint. Van-e jó ötlete a feladat megoldására Excel?
Keressen és cseréljen le egyszerre több értéket VBA kóddal
Ha belefáradt az értékek újra és újra megtalálásába és cseréjébe, a következő VBA-kód segíthet abban, hogy egyszerre több értéket cseréljen le a szükséges szövegekre.
1. Kérjük, hozza létre a használni kívánt feltételeket, amelyek tartalmazzák az eredeti és az új értékeket. Lásd a képernyőképet:
2. Ezután tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
3. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablakba.
VBA kód: Több érték keresése és cseréje egyszerre
Sub MultiFindNReplace()
'Updateby Extendoffice
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. Ezután nyomja meg a gombot F5 kulcsot a kód futtatásához, az előugró prompt mezőben adja meg azt az adattartományt, amelynek értékeit új értékekkel kívánja kicserélni.
5. Kattints OK, és megjelenik egy másik prompt doboz, amely emlékezteti Önt az 1. lépésben létrehozott kritériumok kiválasztására. Lásd a képernyőképet:
6. Ezután kattintson OK, az összes konkrét értéket lecserélte az új értékekre, amire szüksége van azonnal.
Kapcsolódó cikkek:
Hogyan keressünk és cseréljünk ki szöveget a szövegdobozokban?
Hogyan lehet megkeresni és lecserélni a szöveget az Excel diagramcímeiben?
Hogyan lehet megkeresni és kicserélni a szöveget az Excel megjegyzései között?
Hogyan lehet egyszerre több hiperhivatkozási utat módosítani az Excelben?
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!