求EXCEL宏 提取单元格内的计算式并且得出结果在另一个单元格内。

萝卜的哪个是正则表达式，可能你看不明白。不过我想你要的也是结果而已。

发个通俗的，其实都差不多。

选择你要计算的单元格，可以是多个单元格。然后修改代码中要存放结果的单元格，运行宏 “计算” 即可。

Sub 计算()

Dim Rng As Range, S As Double

For Each Rng In Selection

S = S + jisuan(Rng)

Next

Range("b1")Value = S '指定结果存放单元格

End Sub

Function jisuan(Rng As Range) As Double

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

Dim Scr As Object, S2 As String

S = RngText

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

Next

jisuan = Evaluate(S1)

End Function

sub

macro1()

range("f3:h6")select

'这里的f3：h6你可以替换成任意你想要合并的单元格区域,或者把这行代码删除掉，你选择好要合并的区域后执行这个宏就ok了。

with

selection

horizontalalignment

=

xlcenter

verticalalignment

=

xlcenter

wraptext

=

false

orientation

=

0

addindent

=

false

indentlevel

=

0

shrinktofit

=

false

readingorder

=

xlcontext

mergecells

=

false

end

with

selectionmerge

end

sub

以上就是关于求EXCEL宏 提取单元格内的计算式并且得出结果在另一个单元格内。全部的内容，包括:求EXCEL宏 提取单元格内的计算式并且得出结果在另一个单元格内。、请问在excel宏设计中如何获得当前选定区域的单元格地址、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！