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

1、使用背景：

如图所示，批量清空多个表格中的内容

2、实现代码：

Sub 清空数据()

With Sheet2

 .[B:D] = ""

End With

With Sheet3

  .[B:D] = ""

End With

With Sheet4

   .[B:D] = ""

End With

With Sheet5

   .[B:D] = ""

End With

With Sheet6

   .[B:D] = ""

End With

End Sub

3、操作界面：

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

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