Excel自动得出结果(数字前后可以添加文字备注)功能实现操作步骤

Excel自动得出结果(数字前后可以添加文字备注)功能实现步骤：

1、打开excel，按住alt+F11，出现Microsoft VBA编辑窗口；

2、选择Microsoft VBA窗口菜单栏的“插入”->“插入模块”，在弹出的空白窗口输入以下代码：
Function 得出结果(c As Range)
p = c.Text
For j = 1 To Len§
F:
If (Mid(p, j, 1) = “[”) Then
For i = j + 1 To Len§
If (Mid(p, i, 1) = “]”) Then
j = i + 1
Exit For
End If
Next
End If
If (Mid(p, j, 1) = “[”) Then
GoTo F
End If
r = r + Mid(p, j, 1)
Next
If (r <> “”) Then
得出结果 = Application.Evaluate("(" & r & “)”)
Else
得出结果 = “”
End If
End Function

3、点保存按钮保存文件后，关闭Microsoft Visual Basic编辑窗口退回到excel的sheet1工作表；

4、选择要作为计算式的单元格和要得出结果的单元格，譬如A1为计算式所在单元格，B1为要得出结果的单
元格，在A1输入“[高度]2*4[长度]”，在B1输入“=得出结果(A1)”回车后即可以得出结果8。