如何实现每行单独根据指定单元格变更清除对应单元格内容？

我懂你的痛点——原来的代码只能处理单个固定单元格，改成整列范围又会误清整个AQ列，核心问题是没精准定位到被修改的具体行。这里给你调整后的代码，完美实现「修改AI列某行就清除AQ列对应行」的需求：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 先判断修改的单元格是否在AI列内，不在就直接退出
    If Intersect(Target, Me.Range("AI:AI")) Is Nothing Then Exit Sub
    
    Application.EnableEvents = False
    ' 遍历所有被修改的单元格（支持批量修改场景，比如粘贴多行到AI列）
    For Each cell In Target
        ' 通过修改单元格的行号，精准定位AQ列对应行并清除内容
        Me.Range("AQ" & cell.Row).ClearContents
    Next cell
    Application.EnableEvents = True
End Sub

关键代码解释： #

• Me.Range("AI:AI")：用Me指代当前工作表，明确监听AI整列的修改事件，比直接写Range更严谨。
• For Each cell In Target：考虑到用户可能一次性修改多个单元格（比如批量粘贴），遍历每个修改的单元格能确保每一行的AQ列都被正确处理。
• Me.Range("AQ" & cell.Row)：通过cell.Row获取当前修改单元格的行号，精准锁定AQ列对应行，彻底避免清除整列的问题。
• Application.EnableEvents开关：防止清除AQ列内容时再次触发Worksheet_Change事件，避免无限循环。

额外优化建议： #

如果只需要监听AI列的特定行范围（比如第5行到第100行），只需把Me.Range("AI:AI")改成Me.Range("AI5:AI100")即可，这样只会处理指定范围内的修改。

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