Excel关闭时选中最后一行的宏代码及触发事件咨询

一、关闭Excel时自动选中最后一行的宏代码 #

要实现关闭工作簿时选中A列最后一行的单元格，需要把代码放在ThisWorkbook模块里，使用Workbook_BeforeClose事件（该事件会在工作簿关闭前触发）：

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim LastRow As Long
    With ActiveSheet
        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        .Cells(LastRow, "A").Select '选中A列最后一行单元格
    End With
End Sub

操作步骤： #

• 按Alt+F11打开VBA编辑器
• 在左侧工程窗口双击ThisWorkbook对象
• 在右侧代码窗口的下拉菜单中，先选Workbook，再选BeforeClose，然后把上面的代码粘贴进去

二、你提供的代码的触发方式 #

你给出的这段代码作用是获取当前工作表A列最后一行的行号并弹窗显示：

With ActiveSheet
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
End With
MsgBox LastRow

它可以绑定这些触发方式：

• 用Workbook_BeforeClose事件：放在ThisWorkbook模块的BeforeClose事件里，关闭时自动运行
• 工作表级事件：比如Worksheet_Activate（切换到该工作表时触发），需放在对应工作表的模块里
• 手动触发：直接在VBA编辑器里按F5运行，或给它分配快捷键/工作表按钮点击事件

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