展开 vba 代码以对多行执行相同操作，而无需根据不同行值中的单元格删除不同行中的所有信息

Question

我在 excel vba 中使用此代码，它在这一行工作正常但是我想应用代码以相同的方式工作，但对于 m 列中的所有行，基于特定的行值和不明确的内容其他列中的所有行都基于 m 列值中的 1 个单元格，希望这是有道理的

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("M4")) Is Nothing Then
        Range("N4:T4").ClearContents        
    End If

End Sub

Answer 1

像这样，在Target和 column M 的Intersect上使用Offset和Resize 。

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Me.Range("M:M")) Is Nothing Then
        Intersect(Target, Me.Range("M:M")).Offset(, 1).Resize(, 7).ClearContents
    End If

End Sub