查找、替换和计算多个值

Question

旧值

1. A + B + C
2. A + B
3. A + D + E +I

条件

(A=1, B=2, C=3, D=4, E=5, I=6)

新价值观

1. 6
2. 3
3. 16

=SUBSTITUTE(SUBSTITUTE(K2,INDEX(OLD,O5:O9),INDEX(NEW,P5:P9)),INDEX(OLD,O5:O9),INDEX(NEW,P5:P9))

=SUBSTITUTE(SUBSTITUTE(K2,INDEX(OLD,O5:O9),INDEX(NEW,P5:P9)),INDEX(OLD,O5:O9),INDEX(NEW,P5:P9))

所以，实际上我想更改和计算值。仅使用 excel 公式对不带字母、符号的数字求和

Answer 1

如果您愿意将 UDF 放入您的项目中，那么这将为您完成。

Public Function CalculateBasedOnAlphabetIndex(ByVal strFormulaToEvaluate As String) As Double
    Application.Volatile

    Dim i As Long, strLetter, dblNumber As Double, varValue As Variant

    strFormulaToEvaluate = UCase(strFormulaToEvaluate)

    On Error Resume Next

    For i = 65 To 90
        strLetter = Chr(i)

        Err.Clear

        varValue = WorksheetFunction.VLookup(strLetter, Range("AlphaLookup"), 2, False)

        If Err.Description = "" Then
            dblNumber = varValue
        Else
            dblNumber = i - 65 + 1
        End If

        strFormulaToEvaluate = Replace(strFormulaToEvaluate, Chr(i), dblNumber, , , vbTextCompare)
    Next

    On Error GoTo 0

    CalculateBasedOnAlphabetIndex = Evaluate(strFormulaToEvaluate)
End Function

...没有错误检查，但只要您坚持公式编写的基础知识，它就会起作用。

要完成上述工作，您需要在转换表的顶部创建一个命名范围，该范围需要称为“AlphaLookup”并用于 VLOOKUP在代码中获取字母对应的值...

... 然后将用于查找字母并找到它的分配值。不过，这张桌子有一个巧妙的技巧。如果字母对应的数字与其在字母表中的索引不同，您只需要维护该表中的字母。

例如你说 A = 1、B = 2、C = 3、D = 4、E = 5 和 I = 6，所以在填写该范围时，根据上述情况，您只需输入 我 因为我在字母表中的位置不是第 6 位，而是第 9 位。

如果您不熟悉如何进入 Visual Basic 编辑器，请按 Alt + F11，它将为您打开。

从这里插入一个新的模块，然后粘贴该代码。

您现在可以直接在单元格中应用公式，就像这样...

=CalculateBasedOnAlphabetIndex(A1)

此 UDF 也将计算带有数字的公式，因此以下示例将起作用。

希望对你有帮助。