在excel单元格中有文字和数字，如果不计算文字直接计算汉字呢？求公式！！

2025-03-12 01:05:24

推荐回答（2个）

回答1：

括号要是英文的。别忘了启用宏。

看图操作

Function 计算(Rng As Range) As Double

Dim I As Long, S As String, S1 As String

Dim Scr As Object, S2 As String

S = Rng.Text

For I = 1 To Len(S)

S2 = Mid(S, I, 1)

If InStr("()0123456789.+-*/^", S2) > 0 Then

S1 = S1 & Mid(S, I, 1)

End If

计算 = Evaluate(S1)

End Function

回答2：

这个没有办法，只能删除文字，电脑不认识文字内容。
简单地说，公式必须用标准的书写格式，比如“（”用中文状态下的左括号都不行，更别说你这些文字了。