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...与表格中一一对应
