写个vba清除当前表格内容Sub ClearTable Dim tbl As ListObject Set tbl = ActiveSheetListObjects1 假设当前表格是第一个列表对象 tblDataBodyRangeClearContents 清除表格内容End Sub继续

完善一下，加上错误处理和提示信息。

Sub ClearTable() On Error GoTo ErrorHandler Dim tbl As ListObject Set tbl = ActiveSheet.ListObjects(1) '假设当前表格是第一个列表对象 If MsgBox("确定要清空表格吗？", vbYesNo) = vbYes Then tbl.DataBodyRange.ClearContents '清除表格内容 MsgBox "表格已清空。" End If Exit Sub ErrorHandler: MsgBox "清空表格失败。" & vbCrLf & Err.Description End Sub