Public Sub 清除本工作表() Worksheets("sheet1").UsedRange.ClearContentsEnd SubPublic Sub 清除所有表() Dim WS As Worksheet For Each WS In Worksheets WS.UsedRange.ClearContents NextEnd Sub