vba

Sub 改格式()    
   ActiveWorkbook.activesheet.Select
   For Each Rng In ActiveSheet.UsedRange
    With Rng
    .NumberFormatLocal = "G/通用格式"
    .Value = .Value
   End With
   
   Next Rng
End Sub