with sheets(1) '1 表示第一工作表，可以改成你需要的 .Range("A1:G37").clear '清除Range("A1:G37").所有内容end with .Range("A1:G37").ClearContents '清除Range("A1:G37")的内容，但保留其格式设置
