Jak najít a nahradit více hodnot najednou v aplikaci Excel?

  Najděte a nahraďte více hodnot najednou kódem VBA

Pokud vás unavuje hledání a nahrazování hodnot znovu a znovu, následující kód VBA vám pomůže nahradit více hodnot vašimi potřebnými texty najednou.

1. Vytvořte prosím své podmínky, které chcete použít a které obsahují původní hodnoty a nové hodnoty. Viz snímek obrazovky:

2. Poté podržte klávesy "ALT" + "F11" pro otevření okna "Microsoft Visual Basic for Applications".

3. Klikněte na "Vložit" > "Modul" a vložte následující kód do okna Modul.

Kód VBA: Najít a nahradit více hodnot najednou

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. Poté stiskněte klávesu "F5" pro spuštění tohoto kódu, ve vyskakovacím řádku zadejte rozsah dat, kde chcete hodnoty nahradit novými.

5. Klikněte na "OK" a zobrazí se další okno s výzvou, které vám připomene, abyste vybrali kritéria, která jste vytvořili v kroku 1. Viz snímek obrazovky:

6. Poté klikněte na "OK", všechny zadané hodnoty byly podle potřeby nahrazeny novými.

Související články:

Jak najít a nahradit konkrétní text v textových polích?

Jak najít a nahradit text v nadpisech grafů v aplikaci Excel?

Jak najít a nahradit text v komentářích v aplikaci Excel?

Jak změnit více cest hypertextových odkazů v aplikaci Excel?