vba

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