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。