разверните код vba, чтобы он действовал одинаково для нескольких строк без удаления всей информации в разных строках на основе ячейки с другим значением строк

Question

Я использую этот код в Excel vba, и он отлично работает для этой строки, однако я хочу применить код для работы таким же образом, но для всех строк в столбце m на основе определенного значения строк, а неочистить содержимое всех строк в других столбцах на основе 1 ячейки в значении m столбцов, надеюсь, это имеет смысл

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

Таким образом, используя Offset и Resize для Intersect иона Target и столбца М.

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