电力采集数据的整理:EXCEL和普通计算器

来源:百度文库 编辑:中财网 时间:2024/04/29 18:52:17
这个问题其实不像想像中的复杂,用Excel可以轻松搞定,都用不了多少行代码,操作步骤如下:

1、自定义一个函数“biaoda()”用来生成计算表达式:

Option Explicit
Function biaoda(strTemp)
Dim objRegExp
Set objRegExp = CreateObject("vbscript.regexp")
With objRegExp
.Pattern = "[\u4e00-\u9fa5]"
.IgnoreCase = True
.Global = True
biaoda = .Replace(strTemp, "")
End With
Set objRegExp = Nothing
End Function

2、使用宏表函数来计算生成的表达式:
插入名称“result1”
引用中输入“=EVALUATE(Sheet3!B2)”

大功告成。

Sheet2中将名称整合一下,定义名称“result”
引用内容变成“=EVALUATE(biaoda(Sheet2!A2))”

具体效果如附件所示:
附件:正则应用.xls