VBA Excel如何用另一个单元格值替换一个值的一部分

Question

我希望有一个单元格，有人可以在其中输入公式，然后使用宏自动将该公式中的单词替换为同一张表中的正确数字。

示例：
工作表包含一个带有权重值的单元格（L8），可以说它的 10 另一个单元格 (L10) 的高度值为 20。

现在，如果有人在单元格(I27) 中键入这样的内容：(Height+120)/Weight 我希望宏用相应的值替换文本，以便我可以将该文本用作公式并在单元格 I28 中显示结果。

所以 cell(I27) 将显示 20+120/10 并且 cell(I28) 将输出该公式的结果。

值在 L8-L14 列中。

我尝试使用我找到的解决方案，如下所示：

With Range("I27")
    .Replace What:="Weight", _
            Replacement:="", _
            LookAt:=xlPart, _
            SearchOrder:=xlByRows, _
            MatchCase:=False, _
            SearchFormat:=False, _
            ReplaceFormat:=False
End With

我需要以某种方式告诉它从另一个单元格中获取替换。

我想如果我能让该代码正常工作，我就可以为每个要替换的单词复制它 (4)，然后研究一个解决方案，使用公式在旁边的单元格中输出结果.

Answer 1

要使用命名范围，

1- Select the menu Formulas --> Name Manager
2- New...--> Name: Weight, RefertTo: =Sheet1!$L$8 -->OK
3- New...--> Name: Height, RefertTo: =Sheet1!$L$10 -->OK

现在您的单元格L8 具有名称“重量”，而您的单元格L10 具有名称“高度”。您可以在任何单元格中输入此公式：

 =(Height+120)/Weight

你得到(L10+120)/L8的结果值。

附言在第 2 步和第 3 步中，您可以将光标放在 RefersTo 框中，然后单击获得名称的相应单元格，从而更轻松地完成此操作。