VBA Range.Replace第二次不能工作。

Question

我在VBA是个新手。我创造了两个按钮。按钮只用于更改单元格中的数据来源的工作表。例如，我从工作表"ecommerce(D2C)“中提取数字，当我单击SaaS按钮时，它将从sheet "SaaS”中提取数据。对于电子商务按钮，反之亦然。为此，我只使用了Range.Raplace方法。但问题是，SaaS按钮起作用，从工作表"SaaS“获取数字，但当我单击电子商务时，它不会将数字从"SaaS”工作表更改为“电子商务”工作表。如果你能帮我解决这个问题，我会很高兴的。我不知道我在哪里犯了这个错误，因为我对它们都使用了几乎相同的代码。

Sub SaaS()

Cells.Select
Selection.Replace What:="ecommerce(D2C)", Replacement:="SaaS", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("A1").Select

End Sub

Sub Ecommerce()

Cells.Select
Selection.Replace What:="SaaS", Replacement:="ecommerce(D2C)", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("A2").Select

End Sub ```

Answer 1

我想我可以复制你的行为。我要做的是从ecommerce(D2C)更改为Ecommerce (考虑到这是工作表的名称)。如果您尝试将Replace方法与可能导致不正确公式的内容一起使用，它就什么也不做了。

Sub SaaS()

    Cells.Select
    Selection.Replace What:="Ecommerce", Replacement:="SaaS", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False
    Range("A1").Select

End Sub

Sub Ecommerce()

    Cells.Select
    Selection.Replace What:="SaaS", Replacement:="Ecommerce", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False
    Range("A2").Select

End Sub

Answer 2

此方法在“电子商务(D2C)”中失败，因为Excel要求您将此类型的工作表名称放入单引号中，以便在公式中使用:例如，"='ecommerce(D2C)'!A1"。

一旦您单击"Saas“按钮，它将变成"='SaaS'!A1"，但该按钮不需要单引号，因此Excel会自动将其调整为"=SaaS!A1"。因此，现在，当您再次尝试将其切换回"=ecommerce(D2C)!A1"时，它将失败，因为您要求Excel创建一个对的引用，而它不允许这样做。

因此，修复很简单，添加两个单引号：

Sub Ecommerce()

Cells.Select
Selection.Replace What:="SaaS", Replacement:="'ecommerce(D2C)'", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("A2").Select

End Sub