Повторяющиеся строки события Excel VBA OnChange

Question

Я пытаюсь создать событие, в котором я сопоставляю данные из столбца N двух листов, и, если данные совпадают, будет выполняться процесс фоновой заливки строк.

код такой, как показано ниже.при использовании этого я получаю сообщение об ошибке и не могу поставить его в цикл.

ниже приведен код.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Set wkbDest = ThisWorkbook
Set wksDest_All = wkbDest.Worksheets("All Leads")
Set wksDest_New = wkbDest.Worksheets("New Leads")
    If Not Intersect(Target, Columns.Range("A:AS")) Is Nothing Then
        If Application.WorksheetFunction.CountA(Target) = 0 Then
             ' Not Empty
            For Each rw In Target.Row
                    If VBA.Trim(wksDest_All.Range("N" & rw).Value) = VBA.Trim(wksDest_New.Range("N" & rw).Value) Then
                    Target.Parent.Range("A" & rw.Row & ":AS" & rw.Row).Interior.ColorIndex = 15
                    Target.Parent.Range("A" & rw.Row & ":AS" & rw.Row).Borders.LineStyle = xlContinuous

                End If
            Next rw
          'Empty
            For Each rw In Target.Rows
                If VBA.Trim(wksDest_All.Range("N" & rw).Value) <> VBA.Trim(wksDest_New.Range("N" & rw).Value) Then
                    Target.Parent.Range("A" & rw.Row & ":AS" & rw.Row).Interior.ColorIndex = 0
                    Target.Parent.Range("A" & rw.Row & ":AS" & rw.Row).Borders.LineStyle = xlContinuous

                End If
            Next rw
          End If
    End If
End Sub

Answer 1

Было бы полезно, если бы вы предоставили информацию о самой ошибке.

Я думаю, что ваша ошибка в 8-й строке вашего кода:

For Each rw In Target.Row

Это должно было быть

For Each rw In Target.Rows