Excel技术需求：点击单元格返回行列号用于INDIRECT函数并限制范围

嘿，我完全get到你想要实现的功能——点击指定范围内的单元格（红色区域）时，把它的行号和列号（或者直接生成单元格引用）同步到蓝色单元格里，给INDIRECT函数使用，而且只在选中目标区域时才更新，避免出现无效引用的错误对吧？

你之前尝试的Worksheet_SelectionChange事件方向是对的，只是需要补上范围判断和错误处理逻辑，我给你整理了完整可用的代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    ' 定义需要监控的红色单元格范围，替换成你实际的区域，比如"A1:D20"
    Dim monitorRange As Range
    Set monitorRange = Me.Range("A1:C10")
    
    ' 定义存放结果的蓝色单元格，这里假设E1存行号，F1存列号
    Dim rowResultCell As Range
    Dim colResultCell As Range
    Set rowResultCell = Me.Range("E1")
    Set colResultCell = Me.Range("F1")
    
    ' 只处理单个单元格选中的情况，避免多选时返回混乱结果
    If Target.Cells.Count = 1 Then
        ' 判断选中的单元格是否在我们设定的监控范围内
        If Not Intersect(Target, monitorRange) Is Nothing Then
            ' 更新行号和列号到目标单元格
            rowResultCell.Value = Target.Row
            colResultCell.Value = Target.Column
            ' 如果需要直接生成INDIRECT可用的单元格引用（比如"A1"），可以用下面这行替换上面两行
            ' rowResultCell.Value = Target.Address(False, False) ' 参数False表示不显示$符号和工作表名
        Else
            ' 选中范围外时，清空结果单元格（可选，也可以注释掉保持之前的值）
            rowResultCell.ClearContents
            colResultCell.ClearContents
        End If
    Else
        ' 多选单元格时，清空结果避免无效引用
        rowResultCell.ClearContents
        colResultCell.ClearContents
    End If
End Sub

操作步骤： #

1. 打开你的Excel文件，按下Alt + F11打开VBA编辑器
2. 在左侧「工程资源管理器」里找到目标工作表（比如Sheet1），双击它
3. 把上面的代码粘贴到右侧的代码窗口中
4. 修改代码里的monitorRange（红色区域）和rowResultCell/colResultCell（蓝色单元格）为你实际的单元格范围
5. 返回Excel界面，选中红色区域内的单元格，就能看到蓝色单元格自动更新行号列号了！

额外说明： #

• 代码里判断Target.Cells.Count = 1是因为多选单元格时返回行号列号没有实际意义，如果你有特殊需求可以去掉这个判断，但要调整后续逻辑
• 如果想直接给INDIRECT提供可用的引用字符串，用Target.Address(False, False)就能生成不带$符号的单元格地址（比如A1），直接用=INDIRECT(E1)就能引用目标单元格
• 这个事件是绑定在当前工作表上的，只会响应该工作表内的选中操作，不用担心其他工作表的操作干扰结果

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