本文共 1477 字，大约阅读时间需要 4 分钟。

VBA 实现表达式计算

在实际工作中，我们常常需要从表格中提取包含括号说明的文本表达式，并对其进行计算。例如，某公司从系统中导出的数据表格中，方括号内的内容仅为说明性文字。我们的目标是忽略这些说明性文字，仅计算表达式的结果。

实现代码

Option ExplicitSub 计算文本表达式()    Dim RowN As Long    Dim sFormula As String    Dim lStart As Long    Dim lEnd As Long    Dim lLen As Long    For RowN = 2 To Cells(Rows.Count, "A").End(xlUp).Row        sFormula = Cells(RowN, "A").Value                Do While InStr(sFormula, "]") > 0            lStart = InStr(sFormula, "[")            lEnd = InStr(sFormula, "]")            lLen = lEnd - lStart + 1                        Mid(sFormula, lStart, lLen) = String(lLen, " ")        Loop                Cells(RowN, "B").Value = Application.Evaluate(sFormula)    NextEnd Sub

去除有规律但内容不定的文本

在处理需要去除或替换的文本时，常见的方法是通过查找需要去除文本的起始和终止位置，然后利用 MID 语句或其他文本函数进行替换。在本例中，我们需要去除方括号 [] 及其括起的内容。具体实现如下：

这种方法既简单又有效，能够清理表达式中的说明性文字。

String 函数

VBA 的 String 函数可以重复指定长度的字符。其语法为：

String(number, character)

• number 是要转换为字符串的长度（支持长整型）。
• character 是要重复的字符。如果 character 的长度大于 1，仅重复第一个字符。

例如：

String(2, "ABC") → "AA"

这个函数在文本处理中非常有用，尤其是在需要生成占位符或重复字符时。

Evaluate 方法计算表达式

Evaluate 方法可以用来计算表达式的值。它会忽略表达式中的空格，直接计算结果。需要注意的是，表达式的字符长度不能超过 255，否则会发生错误。

利用 VBScript 的 Eval 函数

由于 Evaluate 方法存在一定的限制，开发者可以选择使用 VBScript 的 Eval 方法来计算表达式。以下是一个参考代码示例：

With CreateObject("MSScriptControl.ScriptControl")    .Language = "vbscript"    GetValue = .Eval(Expression)End With

这个代码可以通过 Eval 方法计算指定表达式的值，并将结果赋值给变量。

通过以上方法，我们可以轻松地从包含说明性括号的文本表达式中提取计算结果，实现自动化数据处理任务。

转载地址：http://mywi.baihongyu.com/