如何在关闭Excel工作表的同时清除指定单元格内的内容

Question

无

Answer 1

在VBA代码编辑器中（快捷键Alt+F11），找到Excel对象中的ThisWorkBook对象，双击它，选择一个BeforeClose事件。 以自动清除第一张Sheet的单元格A1为例，代码为： Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets(1).Range("A1").Clear
ThisWorkbook.Save
End Sub追问

你好，具体的书写格式帮忙提供一下。用这个提示编译错误，运行不了，谢谢！

追答Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Sheets(1).Range("A1").Clear
    ThisWorkbook.Save
End Sub

注意，选择BeforeClose事件，代码的首尾行，是默认就生成了，你只需填写中间两行代码

Answer 2

指定清除d2单元格的内容的宏
Sub Auto_close()
Range("D2").Select
Selection.ClearContents
End Sub本回答被提问者采纳

Answer 3

delete 键