Excel切换工作表标签时如何自动删除指定单元格

完全可以通过Excel原生的VBA事件机制实现，不需要安装额外插件，针对「从Sheet1切到Sheet2时自动清除Sheet1的A1单元格」的场景，操作方案如下：

具体操作步骤 #

• 打开目标Excel文件，按下快捷键Alt+F11调出VBA编辑界面
• 在左侧的工程资源管理器面板中，找到当前文件下的ThisWorkbook对象，双击打开它的代码编辑区
• 将下方对应代码粘贴到编辑区中，保存即可生效

对应场景示例代码 #

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    ' 校验触发事件的离开工作表是否为目标Sheet1
    If Sh.Name = "Sheet1" Then
        ' 清除A1单元格内容，如需同时清除单元格格式、批注，可将ClearContents替换为Clear
        Sh.Range("A1").ClearContents
    End If
End Sub

自定义调整说明 #

• 如果需要修改目标工作表，直接把代码里的"Sheet1"替换成你实际的工作表名称即可
• 如果需要修改要删除的单元格位置，把"A1"替换成对应的单元格地址，比如"C3"、"D10"都可以
• 保存文件时必须选择Excel 启用宏的工作簿(*.xlsm)格式，否则宏代码会被丢弃无法运行
• 首次打开设置好的文件时，需要在Excel顶部的安全警告栏选择「启用内容」，功能才能正常触发
• 如果需要实现「切换离开任意工作表时，自动清除该表固定位置单元格」的效果，直接删除代码里的If判断行和对应的End If行，仅保留单元格清除语句即可

内容的提问来源于stack exchange，提问作者MrFrank