002 去除工作表的公式

Sub de() '去公式'

  Dim A As Worksheet

  For Each A In Sheets

    A.UsedRange = A.UsedRange.Value

  Next

End Sub