如何excel 表格中 自动求和

发布网友 发布时间：2022-04-21 00:03

我来回答

共5个回答

热心网友 时间：2022-05-18 05:47

如图，加以辅助行，用替换【*】将所有括弧及中文替换为空（替换为:不输入任何字符）

然后输入公式：=evaluate(a7)

热心网友 时间：2022-05-18 07:05

alt+f11进入VBA，右键在sheet上插入模块，贴入以下代码
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

要用vba的