Сравнение дат - VBA - Ответ 9152688

Sub CAMA_MLS_группировать()
    Dim i&, j&, EndRow&, A
    EndRow = Cells(Rows.Count, 1).End(xlUp).Row
    A = Range("A1:E" & EndRow + 1).Value
    For i = 3 To EndRow
        If A(i, 1) = "CAMA" Then
            For j = i - 1 To i + 1 Step 2
                If A(j, 1) = "MLS" And Cells(j, 6).MergeCells = False Then
                    If IsDate(A(i, 5)) And IsDate(A(j, 5)) Then
                        If Abs(A(i, 5) - A(j, 5)) <= 10 Then
                            Range(Cells(i, 6), Cells(j, 6)).Merge
                            Range(Cells(i, 7), Cells(j, 7)).Merge
                            Range(Cells(i, 8), Cells(j, 8)).Merge
                            Cells(i, 6) = Abs(A(i, 5) - A(j, 5))
                            Cells(i, 7) = DateDiff("yyyy", A(i, 5), A(j, 5))
                            Cells(i, 8) = "М"
                            Exit For
                        End If
                    End If
                End If
            Next
        End If
    Next
End Sub