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 的结果值.

p.s.在第 2 步和第 3 步中，您可以将光标放在 RefersTo框，然后单击获取名称的相应单元格。