Sub SearchDuplicates()
    x = 1
    fPrevID = Cells(x, 3)
    fPrevX = x
    Do While Not IsEmpty(Cells(x, 1))
        x = x + 1
        fFlag = True
        If fPrevID = Cells(x, 3) Then ' Попытки одного типа
            If Cells(x, 2) = "0" Then
                Rows(Trim(Str(fPrevX)) + ":" + Trim(Str(x - 1))).Group
                Call MarkDuplicates(fPrevX, x - 1, 4)
                fPrevX = x
                fPrevID = ""
                fFlag = False
            End If
        Else
            If fPrevX <> x - 1 Then ' Есть повторяющиеся операции
                Rows(Trim(Str(fPrevX)) + ":" + Trim(Str(x - 2))).Group
                Call MarkDuplicates(fPrevX, x - 2, 4)
            End If
            fPrevX = x
        End If
        If fFlag Then
            fPrevID = Cells(x, 3)
        End If
    Loop
End Sub