一般来说都是先写好计算式,然后用evaluate来得到计算式的值,如果想要逆推得到,那么来看看这篇经验吧
工具/原料
1
电脑
2
宏已经激活了的excel或者wps
方法/步骤
2
鼠标移动到工作表名称上,右键,点击查看代码,然后弹出代码窗口
3
右键-插入-模块
4
将代码复制进去Function j计算式(单元格) Dim 正则 As Object Set 正则 = CreateObject('VBScript.RegExp') 字符串1 = 单元格.Formula Debug.Print 字符串1 正则.Global = True '搜索全部 正则.Pattern = '(\$?)[A-Z]+(\$?)\d+' '一个字符串，用来定义正则表达式 Set matches = 正则.Execute(字符串1) For Each Match In matches j计算式 = Replace(字符串1, Match, Range(Match)) 字符串1 = j计算式 NextEnd Function
5
然后就像sum一样输入公式
6
大功告成,那么,你学会了吗
注意事项
这个经验是给对excel的vba入门的人看的,也就是说你要会复制别人的代码,并且能运行,如果你的excel或者wps的宏没有激活,那么先去看看激活宏的经验吧