VBA中Worksheet_SelectionChange事件报运行时错误91问题咨询

Worksheet_SelectionChange事件本身不存在单元格区域选择的特殊使用限制，你遇到的运行时错误和事件机制无关，属于VBA基础语法错误。

报错的核心原因：VBA中给对象类型变量赋值时，必须使用Set关键字。你声明的selectionRange是Range类型的对象变量，直接写selectionRange = shelvesSht.Cells(1, 1)时，VBA会尝试读取Cells(1,1)的默认属性（即单元格的值）赋值给对象变量，类型不匹配直接抛出运行时错误。

另外你后续要执行Select操作修改选区，会再次触发SelectionChange事件，如果不加处理会出现递归触发的问题，轻则报错重则程序卡死。

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    Dim shelvesSht As Worksheet
    Dim selectionRange As Range
    Dim headerRow As Long
    
    ' 临时关闭事件响应，避免后续Select操作递归触发本事件
    Application.EnableEvents = False
    ' 错误捕获，保证哪怕代码出错也能恢复事件开关
    On Error GoTo SafeExit
    
    ' 用Me指代当前绑定事件的工作表，比ActiveSheet稳定性更高
    Set shelvesSht = Me
    ' 用Target.Column判断列，避免多单元格选择时ActiveCell和选区不一致的问题
    If shelvesSht.Cells(1, Target.Column).Value = "Search" Then
        headerRow = 1
        ' 对象赋值必须加Set关键字
        Set selectionRange = shelvesSht.Cells(1, 1)
        MsgBox "Selected cell in Click Col... Moving on"
        ' 执行你需要的第一行整行选中操作
        selectionRange.EntireRow.Select
        ' 后续可直接在该位置编写表头列号查找逻辑
    End If

SafeExit:
    ' 恢复事件响应
    Application.EnableEvents = True
End Sub

• 所有VBA对象类型（Range、Worksheet、Workbook等）的赋值都必须前置Set关键字，只有String、Long、Integer这类基础数据类型可以直接用等号赋值。
• 在SelectionChange、Change这类会被选区修改、单元格内容修改触发的事件中，如果你的代码逻辑需要修改选区、改动单元格内容，一定要先临时关闭事件响应，操作完成后再恢复，避免递归触发事件导致异常。
• 工作表事件过程中优先用Me指代当前触发事件的工作表，不要依赖ActiveSheet，用户切换工作表时ActiveSheet会动态变化，容易出现对象引用错误；判断选区属性时优先使用事件自带的Target参数，不要依赖ActiveCell，多单元格批量选择时ActiveCell只是选区中的活动单元格，和实际选区范围可能不一致。

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