如何在工作表任意活动单元格重复运行两个宏？

核心思路 #

利用全局变量（或隐藏单元格）记录上次操作的单元格位置，编写两个通用宏：一个负责在当前活动单元格执行目标宏并记录位置，另一个负责跳转回上次单元格并重复执行目标宏。

步骤1：编写通用宏代码 #

打开VBA编辑器（按Alt+F11），插入一个新模块，粘贴以下代码：

' 全局变量：存储上次操作的单元格，Excel关闭后会重置
Dim lastCell As Range

' 在当前活动单元格执行目标宏，并记录单元格位置
Sub RunMacrosOnActiveCell()
    ' 记录当前活动单元格
    Set lastCell = ActiveCell
    
    ' 替换成你实际需要运行的第一个宏名称
    Call YourFirstMacro
    ' 替换成你实际需要运行的第二个宏名称
    Call YourSecondMacro
End Sub

' 跳转到上次操作的单元格，重复执行目标宏
Sub RepeatMacrosOnLastCell()
    ' 检查是否有记录过的单元格
    If Not lastCell Is Nothing Then
        ' 激活上次的单元格
        lastCell.Activate
        
        ' 重复执行两个宏
        Call YourFirstMacro
        Call YourSecondMacro
    Else
        MsgBox "请先在目标单元格执行一次宏操作！"
    End If
End Sub

关键调整：

• 把代码中的YourFirstMacro和YourSecondMacro替换成你实际的宏名称。
• 如果你的目标宏原本是针对固定单元格编写的，需要修改宏内的单元格引用为ActiveCell，比如把Range("B2")改成ActiveCell，确保宏能作用于当前活动单元格。

步骤2：持久化记录（可选） #

如果需要关闭文件后仍保留上次操作的单元格记录，可以用隐藏单元格替代全局变量，修改代码如下：

' 在当前活动单元格执行目标宏，记录地址到隐藏单元格
Sub RunMacrosOnActiveCell()
    ' 将当前单元格地址存入Sheet1的A1单元格（可隐藏该单元格）
    Sheet1.Range("A1").Value = ActiveCell.Address
    
    Call YourFirstMacro
    Call YourSecondMacro
End Sub

' 跳转回上次单元格并重复执行宏
Sub RepeatMacrosOnLastCell()
    Dim lastAddr As String
    lastAddr = Sheet1.Range("A1").Value
    
    If lastAddr <> "" Then
        ' 激活上次的单元格
        Range(lastAddr).Activate
        
        Call YourFirstMacro
        Call YourSecondMacro
    Else
        MsgBox "请先在目标单元格执行一次宏操作！"
    End If
End Sub

设置单元格隐藏：选中Sheet1的A1单元格，右键选择「设置单元格格式」→「保护」→勾选「隐藏」，然后保护工作表即可。

步骤3：快速调用宏 #

为了方便操作，推荐以下两种方式：

• 添加到快速访问工具栏：点击Excel顶部快速访问工具栏的下拉箭头→「其他命令」→选择「宏」→把RunMacrosOnActiveCell和RepeatMacrosOnLastCell添加到工具栏。
• 设置快捷键：在VBA编辑器中，按Alt+F8选中宏→点击「选项」→设置快捷键（比如Ctrl+Shift+R对应执行，Ctrl+Shift+E对应重复）。

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