[已解决]请哪位老师指导一下A列输入公式（公式中含汉字）B列自动等于结果，谢谢

jstxzz

请哪位老师指导一下A列输入公式（公式中含汉字）B列自动等于结果，谢谢啦

最佳答案

月排行榜 / 总排行榜

苏子龙

2016-10-24 16:54

见附件内容

跳转到最佳答案楼层

苏子龙

1. Function hsum(str As String)
   
2.     Dim Reg As Object
   
3.     Set Reg = CreateObject("vbscript.regexp")
   
4.     With Reg
   
5.         .Pattern = "[\u4e00-\u9fa5]"
   
6.         .Global = True
   
7.         hsum = .Replace(str, "")
   
8.     End With
   
9.     hsum = Evaluate(hsum)
   
10. End Function

复制代码

苏子龙

如果汉字都是那么几个，可用函数+自定义名称，自定义函数见附件

池盛龙

这个可行

池盛龙

这个可行

池盛龙

这个可行

jstxzz

苏子龙 发表于 2016-10-24 08:29

老师，您好。麻烦您告诉我一下如何复制代码。我正常用的表格就是这个零星算量里面的C列是过程，麻烦您帮代码也改一下。谢谢了

苏子龙

jstxzz 发表于 2016-10-24 16:40
老师，您好。麻烦您告诉我一下如何复制代码。我正常用的表格就是这个零星算量里面的C列是过程，麻烦您帮 ...

直接插入模块，把代码放进去

苏子龙

见附件内容

jstxzz

苏子龙 发表于 2016-10-24 16:54
见附件内容

谢谢您了