ค้นหาเนื้อหาของเซลล์ที่แน่นอนและแทนที่เป็นกลุ่ม

ฉันพบ 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