Sub test() For Each sh In Worksheets sh.Cells.Clear Next End Sub 用宏跑一遍就行 这是删除所有内容 任何sheet的本回答被网友采纳
第4个回答 2014-11-25
VBA 插入一个模块 定义一个过程,代码如下: Public Sub DELETEALLSHEET() For Each sh In ThisWorkbook.Worksheets sh.Cells.Delete Next End Sub 代码输入完后,你把鼠标点到代码的首行,在菜单处点击一个“运行”按钮(即三角形的“播放”按钮)即可