لقد وجدت VBA أدناه على هذا الموقع. كيف سأجعله يبحث فقط عن محتويات الخلية الدقيقة ثم يستبدل هذه المحتويات؟
شكر
شكر
Sub
MultiFindNReplace()
'Update 20140722
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