2024年4月10日发(作者：)

EXCEl去公式宏

第一种：只去公式，对数据不做处理。

第一步：打开宏VB编辑

第二步：菜单 插入->模块 弹出空白编辑窗口

第三步：在窗口中输入如下代码

第四步：运行宏

完成

Sub delEXcel() '去公式'

Dim a As Worksheet

For Each a In Sheets

nge =

Next

End Sub

第二种：去公式，对浮点数据只保留两位小数（四舍五入）。

第一步：打开宏VB编辑

第二步：菜单 插入->模块 弹出空白编辑窗口

第三步：在窗口中输入如下代码

第四步：运行宏

完成

Sub de() '去公式并只保留两位小数'

Dim a As Worksheet

Dim x, y

For Each a In Sheets

x =

y =

For k = 1 To x

For j = 1 To y

If VarType((k, j)) = vbDouble Then

'MsgBox "k=" & k & "j=" & j & "M=" & VarType((k, j).Value)

(k, j) = Round((k, j).Value, 2)

Else

(k, j) = (k, j).Value

'MsgBox "bbb"

End If

Next

Next

Next

End Sub