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 podmínky, které chcete použít a které obsahují původní hodnoty a nové hodnoty. Viz snímek obrazovky:

2. Poté přidržte ALT + F11 klávesy pro otevření Okno Microsoft Visual Basic pro aplikace.

3, klikněte Vložit > Modula vložte následující kód do okna modulu.

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. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu, ve vyskakovacím okně s výzvou zadejte rozsah dat, který chcete nahradit hodnotami novými hodnotami.

5, klikněte OKa zobrazí se další okno s výzvou, které vám připomene výběr kritérií, která jste vytvořili v kroku 1. Viz screenshot:

6. Pak klikněte na tlačítko OK, všechny konkrétní hodnoty byly okamžitě nahrazeny novými hodnotami.

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?