在Excel中replace公式中的文本

我有一个电子表格，其中包含标准数据表和一张表格进行计算。 我想设置它，以便macros查找当前在计算中使用的数据表格的名称，并用另一个数据表格的名称replace它。 由于数据表具有相同的布局，公式中的其他内容都不需要更改，但是我正在努力！ 这是我迄今为止：

Sub Replace_Text() Dim Findtext As String Dim Replacetext As String Findtext = "Front Sheet!B2" Replacetext = "Front Sheet!C2" Worksheets("Sheet 2").Range("K11:Z91").Replace what:=Findtext, replacement:=Replacetext, lookat:=xlPart, MatchCase:=False 

正如你所看到的，我正在尝试为文本创build一个单元格引用，这样任何人都需要改变的是在这些单元格（B2，C2）中写入的内容来获取新数据表格的计算。

我相信错误是在参考范围来search？ 由于我对使用Excel相当陌生，我不知道还有什么可以尝试的。

Answer 1

你只需要得到B2和C2的内容（实际上你可以省略.value，但对我来说似乎更清楚）： –

 Sub Replace_Text() Dim Findtext As String Dim Replacetext As String Findtext = Worksheets("Front Sheet").Range("B2").Value Replacetext = Worksheets("Front Sheet").Range("c2").Value Worksheets("Sheet2").Range("K11:Z91").Replace what:=Findtext, replacement:=Replacetext, lookat:=xlPart, MatchCase:=False End Sub 

Answer 2

你会传入一个string来查找值，而不是值，所以findtext=worksheets("Front Sheet").range("b2").value