Question

如何删除指定区域数据VBA代码？

Answer 1

Private Sub CommandButton1_Click()
a = MsgBox("即将清空所有数据请确认", 1)
If a = 1 Then
a = MsgBox("请再次确认是否清空所有数据", 1)
If a = 1 Then
Worksheets("汇总表").[B2:F15].ClearContents
End If
End If
End Sub
增加一个按键，双击后复制入以上代码。