Hey!
Snažím se změnit více než 1 sloupec s daty najednou.
Používám makro VBE, viz níže. Když jej použiji, označím prostor, který chci tímto způsobem označit ($D$2:$E$10, ale nezobrazuje se mi 2. vyskakovací okno, kam si zapisuji data, na která chci změnit.
Nejprve vytvořím 'Modul', do kterého umístím makro, je to tak?
Snažím se změnit více než 1 sloupec s daty najednou.
Používám makro VBE, viz níže. Když jej použiji, označím prostor, který chci tímto způsobem označit ($D$2:$E$10, ale nezobrazuje se mi 2. vyskakovací okno, kam si zapisuji data, na která chci změnit.
Nejprve vytvořím 'Modul', do kterého umístím makro, je to tak?
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
I hope you understand what i mean.
Regards
Benny