EXCEl去公式宏
第一种：只去公式，对数据不做处理。
第一步：打开宏VB编辑
第二步：菜单 插入->模块  弹出空白编辑窗口
第三步：在窗口中输入如下代码
第四步：运行宏
完成
Sub delEXcel() '去公式'
Dim a As Worksheet
For Each a In Sheets
a.UsedRange = a.UsedRange.Value
Next
End Sub
第二种：去公式，对浮点数据只保留两位小数（四舍五入）。
第一步：打开宏VB编辑
第二步：菜单 插入->模块  弹出空白编辑窗口
第三步：在窗口中输入如下代码
第四步：运行宏
完成
Sub de() '去公式并只保留两位小数'
Dim a As Worksheet
Dim x, y
For Each a In Sheets
x = a.UsedRange.Rows.Count
y = a.UsedRange.Columns.Count
For k = 1 To x
    For j = 1 To y
    If VarType(a.UsedRange.Cells(k, j)) = vbDouble Then
'MsgBox "k=" & k & "j=" & j & "M=" & VarType(a.UsedRange.Cells(k, j).Value)
a.UsedRange.Cells(k, j) = Round(a.UsedRange.Cells(k, j).Value, 2)
Else
a.UsedRange.Cells(k, j) = a.UsedRange.Cells(k, j).Value
'MsgBox "bbb"
End If
excel口内打 或者x
    Next
Next
Next
End Sub

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。