Application
Application.ScreenUpdating = False
关闭脚本运行时界面自动刷新
Application.DisplayAlerts = False
关闭警报对话框
Dim sheet As Worksheet For Each sheet In Worksheets If sheet.Name <> ActiveSheet.Name Then sheet.Delete Next sheet
删除非激活工作表
Range("A1:B20").Clear
Range("A1:B20").ClearComments
Range("A1:B20").ClearContents
Range("A1:B20").ClearFormats
清除单元格的所有包括批注、内容、注释、格式等内容
清除单元格的批注
清除单元格的内容
清除单元格的格式
ManiaHero 