Гей!
Я намагаюся змінити більше 1 стовпця з даними одночасно.
Я використовую макрос VBE, який ви бачите нижче. Коли я використовую його, я позначаю простір, який я хочу позначити, використовуючи це ($D$2:$E$10, але я не отримую 2-е спливаюче вікно, де я записую дані, на які хочу змінити.
Я спочатку створю "Modul", щоб розмістити макрос, чи не так?
Я намагаюся змінити більше 1 стовпця з даними одночасно.
Я використовую макрос VBE, який ви бачите нижче. Коли я використовую його, я позначаю простір, який я хочу позначити, використовуючи це ($D$2:$E$10, але я не отримую 2-е спливаюче вікно, де я записую дані, на які хочу змінити.
Я спочатку створю "Modul", щоб розмістити макрос, чи не так?
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