基于触发词Hired的同工作表同行数据值粘贴VBA实现求助

原代码存在两处核心问题：

• 触发范围判断逻辑错误：你需要监控的是G列（第7列）的5-436行，但原代码错误地将监控范围设为J11:AG436，导致G列的变更无法触发后续逻辑。
• 目标操作区域错误：原代码仅对触发单元格（G列）执行值粘贴，而需求是对触发单元格所在行的J-AG列执行操作。

另外，执行粘贴值操作会再次触发Worksheet_Change事件，需要临时关闭事件避免循环触发。

修正后的完整代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim triggerColumn As Long
    triggerColumn = 7 ' G列对应序号7
    Dim triggerWord As String
    triggerWord = "Hired"
    Dim monitorRange As Range
    Dim targetRow As Long
    Dim pasteRange As Range
    
    ' 定义需要监控的G列范围：G5到G436
    Set monitorRange = Me.Range("G5:G436")
    
    ' 检查变更的单元格是否在监控范围内
    If Not Intersect(Target, monitorRange) Is Nothing Then
        ' 遍历所有变更的单元格（支持批量修改的情况）
        Dim cell As Range
        For Each cell In Intersect(Target, monitorRange)
            ' 判断单元格内容是否包含触发词（不区分大小写）
            If InStr(1, cell.Value, triggerWord, vbTextCompare) > 0 Then
                targetRow = cell.Row
                ' 定义当前行需要粘贴值的范围：J列到AG列
                Set pasteRange = Me.Range("J" & targetRow & ":AG" & targetRow)
                
                ' 关闭事件避免循环触发
                Application.EnableEvents = False
                
                ' 执行值粘贴操作（直接赋值更高效）
                pasteRange.Value = pasteRange.Value
                
                ' 恢复事件触发
                Application.EnableEvents = True
            End If
        Next cell
    End If
End Sub

关键修改说明 #

• 调整监控范围：将监控对象改为G5:G436，确保G列的变更能被准确捕捉。
• 精准定位目标区域：通过触发单元格的行号，锁定当前行的J-AG列范围，符合需求。
• 简化值操作：用pasteRange.Value = pasteRange.Value替代复制粘贴流程，更高效且不占用剪贴板。
• 避免循环触发：操作前后禁用/启用Application.EnableEvents，防止粘贴值时重复触发事件导致的异常。
• 兼容批量修改：添加循环遍历所有变更单元格，支持一次性修改多个G列单元格的场景。

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