Excel VBA如何识别选中区域内右键点击的具体单元格？

当你选中A1:E1这类多单元格区域后，ActiveCell只会返回选中区域里的活动单元格（比如默认的A1），Selection则返回整个选中区域，所以这两个对象都无法直接获取右键点击的具体单元格。

解决这个问题的核心是利用工作表的Worksheet_BeforeRightClick事件，该事件的Target参数会精准指向右键点击的单元格，不受当前选中区域的影响。

具体实现代码 #

打开VBA编辑器（按Alt+F11），双击你需要处理的工作表，粘贴以下代码：

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    ' 可选：判断右键点击的单元格是否在当前选中范围内
    If Not Intersect(Target, Selection) Is Nothing Then
        ' 输出右键点击的单元格地址（示例操作）
        MsgBox "右键点击的单元格：" & Target.Address(False, False)
        
        ' 如果需要替换默认右键菜单，取消默认行为
        ' Cancel = True
    End If
End Sub

使用说明 #

回到Excel界面，选中A1:E1区域，右键点击其中任意单元格，就会弹出提示框显示你点击的具体单元格地址。你可以根据需求修改代码里的逻辑，比如记录单元格位置、执行特定操作等。

内容的提问来源于stack exchange，提问作者Philippe Zivan Sussholz