搜索字符串，用單元格值替換

我想在工作簿中的所有工作表中搜索字符串"xxxxx"，並用單元格的值替換。搜索字符串，用單元格值替換

我用以下，這幾乎是我所需要的...

Cells.Replace What:="xxxxx", Replacement:="yyyyyy", LookAt:=xlPart, _ 
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ 
ReplaceFormat:=False

但不是Replacement:="yyyyyy"我需要使用電池，例如內容A1。

來源

2015-09-17 RobH

要在Sheet1中單元格A1的內容替換：

Replacement:=Sheet1.Range("A1").Value

來源

2015-09-17 11:28:27

使用下面的代碼2位，我現在可以生成正是我想要的。

Application.CutCopyMode = False 
Selection.Copy 
Sheets("OAM_IP").Select 
Range("I2").Select 
ActiveSheet.Paste 
Sheets("Inputs").Select 
Range("B4").Select 
Application.CutCopyMode = False 
Selection.Copy 
Sheets("OAM_IP").Select 
Range("E2").Select 
ActiveSheet.Paste 
Sheets("Inputs").Select 
Range("B6").Select 
Application.CutCopyMode = False 
Selection.Copy 
Sheets("OAM_IP").Select 
Range("G2").Select 
ActiveSheet.Paste 
Sheets("Inputs").Select 


    Cells.Replace What:="xxxxx", Replacement:=Range("A25").Value, LookAt:=xlPart, _ 
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ 
    ReplaceFormat:=False 
Cells.Replace What:="yyyyy", Replacement:=Range("A26").Value, LookAt:=xlPart, _ 
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ 
    ReplaceFormat:=False

來源

2015-09-17 12:32:25 RobH

搜索字符串，用單元格值替換

回答

相關問題