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

【问题标题】：Search for a string, replace with a cell value搜索字符串，替换为单元格值
【发布时间】：2015-12-14 04:00:17
【问题描述】：

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

我正在使用以下，这几乎是我需要的......

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

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

【问题讨论】：

标签： excel search replace vba

【解决方案1】：

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

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

【讨论】：

【解决方案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

【讨论】：