Vba代码,若你的工作表名称没有规律可以就稍微费事点,若是有规律可以用 For each ...in...next..sub Delete_All()with sheets("Sheet1").range("A2:C5").clearContents'编辑你指定的范围,这是清除内容,删除单元格要用Deleteend with'把这三行代码复制粘贴,然后修改Sheet名字end sub