Sub excel去除所有公式() Dim sheet As Worksheet For Each sheet In Sheets sheet.UsedRange = sheet.UsedRange.Value Next End Sub