用VBA批量删除Excel表中的数据

1、使用背景：如图所示，批量清空多个表格中的内容

2、实现代码：Sub 清空数据()With Sheet2.[B:D觥终柯计] = ""End WithWith Sheet3 .[B:D] = ""End WithWith Sheet4 .[B:D] = ""End WithWith Sheet5 .[B:D] = ""End WithWith Sheet6 .[B:D] = ""End WithEnd Sub

3、操作界面：插入按钮，将宏“清空数据”制定给该按钮，可实现一键操作

4、这里的sheet2,sheet3...与表格中一一对应