excel单元格格式改为常规格式的VBA代码

Sub 改格式()    

   ActiveWorkbook.activesheet.Select

   For Each Rng In ActiveSheet.UsedRange

    With Rng

    .NumberFormatLocal = "G/通用格式"

    .Value = .Value

   End With

   Next Rng

End Sub