如何仅在Excel的I列触发双击执行VBA代码？

可以通过添加列判断逻辑实现需求，同时优化原有代码的冗余操作，修改后的完整代码如下：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    ' 仅当双击I列单元格时执行后续逻辑
    If Not Intersect(Target, Me.Columns("I")) Is Nothing Then
        Cancel = True ' 取消默认双击编辑行为
        
        ' 直接将trace表F15的值写入当前双击的I列单元格
        Target.Value = Sheets("trace").Range("F15").Value
        ' 自动定位到下一行I列单元格
        Target.Offset(1).Select
    End If
End Sub

关键修改说明： #

• 列判断逻辑：Intersect(Target, Me.Columns("I"))用于检测双击的单元格是否属于I列，若不在此列则直接跳过后续代码，不触发任何自定义操作
• 优化默认行为保留：仅在I列双击时设置Cancel = True，其他列仍可正常使用双击编辑功能
• 简化赋值操作：直接通过Target.Value赋值替代复制粘贴的冗余步骤，既减少代码量又提升运行效率

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