Question

我想在工作簿的所有工作表中搜索字符串"xxxxx"，并替换为单元格的值。

我使用以下内容，这几乎就是我所需要的......

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

但不是Replacement:="yyyyyy"我需要使用单元格的内容，例如A1。

Answer 1

替换Sheet1中单元格A1的内容：

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

Answer 2

使用以下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

搜索字符串，替换为单元格值

2 个答案: