查找并replaceVBA中的所有行和所有列

我有一个从1到90的项目列表。对于直到列200的每个项目，同一行中的所有公式都应包含链接到正确项目编号的公式。 例如：

A1：

Project 1 

B1：

 =IFERROR('C:\Users\z003th4b.AD009\Desktop\Gross margin bridges\Projects\[Project (1).xlsm]Nov 17'!$D$3;" ") 

C1：

 =IFERROR('C:\Users\z003th4b.AD009\Desktop\Gross margin bridges\Projects\[Project (1).xlsm]File_Setup'!$D$17;" ")` 

A2：

 Project 2 

B2：

 =IFERROR('C:\Users\z003th4b.AD009\Desktop\Gross margin bridges\Projects\[Project (2).xlsm]Nov 17'!$D$3;" ") 

C2：

 =IFERROR('C:\Users\z003th4b.AD009\Desktop\Gross margin bridges\Projects\[Project (2).xlsm]File_Setup'!$D$17;" ") 

等多达90个项目。

目前我正在使用

 Sub macro () ActiveCell.Range("A31:BH90").Select Selection.Replace What:="Project (1)", Replacement:="Project (2)", LookAt:= _ xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False ActiveCell.Offset(62, 0).Range("A31:BH90").Select end sub 

而且似乎没有工作。 我是VBA的新手，所以我会很感激任何帮助。 谢谢！

Answer 1

尝试：

 Sub Macro () ActiveCell.Range("A1:BH90").Select Selection.Replace What:="Project (1)", Replacement:="Project (2)", LookAt:= _ xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False ActiveCell.Offset(62, 0).Range("A1:BH90").Select End Sub