Значения с повторами

[Vasiliy80]

может быть другой вариант
0 2 0 4
0 2 0 4
результат
2
4

[Vasiliy80]

в блоке аргументы повторяются

[Aleksandr H.]

Option Explicit
' DATA In A1:D10
Sub GoBitch()
    Dim rng1 As Range
    Dim rng2 As Range
    Dim rngUnion() As Integer
    Dim n As Integer
    Dim i, j
    n = 0
    For i = 1 To 10
        Set rng1 = Range("A" & i & ":D" & i)
        Set rng2 = Range("A" & i + 1 & ":D" & i + 1)
        If Not IsSame(rng1, rng2) Then
            For j = 1 To 4
                If rng1(1, j) <> 0 Then
                    ReDim Preserve rngUnion(n)
                    rngUnion(n) = rng1(1, j).Value
                    n = n + 1
                End If
            Next j
        End If
        
    Next i
     For n = 0 To UBound(rngUnion)
        Cells(20 + n, "A") = rngUnion(n)
    Next n
End Sub

Private Function IsSame(rng1 As Range, rng2 As Range)
    Dim ary1() As Variant
    Dim ary2() As Variant
    Dim st1 As String, st2 As String
    ary1 = Application.Transpose(Application.Transpose(rng1))
    st1 = Join(ary1, ",")
    ary2 = Application.Transpose(Application.Transpose(rng2))
    st2 = Join(ary2, ",")
    IsSame = st1 = st2
End Function

[Vasiliy80]

Спасибо огромное, все работает!!!

[Казанский]

Сообщение от Vasiliy80

Несколько дней бьюсь, не могу решить проблему

Потому что Вы не сформулировали четко проблему.
Вот в сообщении 1 удаляются ВСЕ подряд идущие строки "1 2 3 4", "1 2 0 0", "1 0 0 4", вроде все понятно.
Но в сообщении 7 удаляется только строка, совпадающая с предыдущей, и из 4 одинаковых строк остаются две.
Как нужно на самом деле?

Сообщение от Vasiliy80

Спасибо огромное, все работает!!!

90% вероятность, что нет.

[Vasiliy80]

Все работает, и работает правильно!

[Serge_Bliznykov]

Сообщение от Казанский

Потому что Вы не сформулировали четко проблему.
Вот в сообщении 1 удаляются ВСЕ подряд идущие строки "1 2 3 4", "1 2 0 0", "1 0 0 4", вроде все понятно.
Но в сообщении 7 удаляется только строка, совпадающая с предыдущей, и из 4 одинаковых строк остаются две.
Как нужно на самом деле?

я не знаю, зачем это нужно TC, но я понял, что ему нужно.
удаляется блок. блок это строчка, повторенная ровно столько раз, сколько в ней значащих чисел/цифр (не нулей).

поэтому
1 2 3 4
1 2 3 4
1 2 3 4
1 2 3 4
это один блок.
и он превращается в
1
2
3
4

а, например,
1 0 0 4
1 0 0 4
1 0 0 4
1 0 0 4
это два блока по две строки, которые превращаются в
1
4
1
4

Сообщение от Vasiliy80

Все работает, и работает правильно!

Ну, главное, что Вас это устраивает!

[Vasiliy80]

хотя, я ошибся
действительно, если вместе встречается такой вариант к примеру
1 2 0 0
1 2 0 0
1 2 0 0
1 2 0 0
то выводится результат
1
2
3
4
а должно быть
1
2
1
2

[Vasiliy80]

просто при проверке мне изначально не встретился такой вариант

[iNataliya]

Так формулами подойдет?

Хотя проблему с двумя одинаковыми блоками подряд не решает