Excel工作表两列触发不同宏遇Run-time error 1004 如何解决？

错误原因分析 #

你遇到的Run-time error 1004，是因为代码中Range("P")的写法不符合Excel VBA的范围引用规则——单字母P会被识别为命名范围而非整列，正确的整列引用应该是Range("P:P")。同时原代码用ActiveCell判断不如直接使用事件参数Target准确，还未处理多选单元格的误触发场景。

修正后的代码方案 #

以下是两种可行的修正代码，任选其一即可：

方案一：用列号判断（推荐）

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 仅处理单个单元格选中的情况，避免多选误触发
    If Target.Cells.Count > 1 Then Exit Sub
    
    ' 判断选中单元格所在列，触发对应宏
    If Not Intersect(Target, Me.Range("P:Q")) Is Nothing Then
        If Target.Column = 16 Then ' P列对应列号16
            EmailRequest ' 调用邮件请求宏，Call可省略
        ElseIf Target.Column = 17 Then ' Q列对应列号17
            EmailApproval ' 调用邮件审批宏
        End If
    End If
End Sub

方案二：用Select Case简化逻辑

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    
    Select Case Target.Column
        Case 16
            EmailRequest
        Case 17
            EmailApproval
    End Select
End Sub

代码关键说明 #

• Target是Worksheet_SelectionChange事件的内置参数，直接指代当前选中的单元格范围，比ActiveCell更可靠
• 增加Target.Cells.Count > 1判断，避免选中多个单元格时误触发宏
• Me.Range明确指向当前代码所在的工作表，防止跨工作表的范围引用错误
• 列号对应关系：P列=16，Q列=17，可根据实际需求调整

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