如何excel 表格中 自动求和
发布网友
发布时间：2022-04-21 00:03
共5个回答
热心网友
时间：2022-05-18 05:47
如图，加以辅助行，用替换【*】将所有括弧及中文替换为空（替换为:不输入任何字符）
然后输入公式：=evaluate(a7)
热心网友
时间：2022-05-18 07:05
Function mycalc(s As String, mode As Integer)
Set re = CreateObject("vbscript.regexp")
re.Pattern = "【.*?】"
re.Global = True
re.IgnoreCase = True
re.MultiLine = True
s = re.Replace(s, "")
s = Replace(s, "（", "(")
s = Replace(s, "）", ")")
re.Pattern = "\s+"
s = re.Replace(s, "")
If mode = 0 Then mycalc = s Else mycalc = Evaluate(s)
End Function
使用的时候，用比如=mycalc(A1,0)就可以取得对应的公式，用=mycalc(A1,1)可以计算出结果，前提是你的公式没有写错。
热心网友
时间：2022-05-18 08:39
需要保证您带文字的部分公式输入正确
您需要核对一下结果，我这边直接复制您的文字做的，不知道结果是否正确。
热心网友
时间：2022-05-18 10:31
Sub tests33()
Dim rng As Range, a As Range
Set rng = Application.InputBox("请选择单元格区域", "区域的选择", , , , , , 8)
For Each a In rng
With CreateObject("VBSCRIPT.REGEXP")
.Pattern = "[\u4e00-\u9fa5]"
.IgnoreCase = True
.Global = True
If .test(a) Then
s = .Replace(a, "")
End If
End With
a.Offset(0, 1) = Application.Evaluate(s)
Next
End Sub
想要学习更多的Excel VBA方面的知识，可以多多关注我的文章
热心网友
时间：2022-05-18 12:39
