Проверка столбцов на соответствие

[ZSV]

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

Function CompRanges(rng1 As Range, rng2 As Range) As Boolean
    Dim i As Long: CompRanges = True: Application.Volatile
    For i = 1 To rng1.Count
    If rng2.Item(i) <> 0 And rng1.Item(i) <> 0 Then
        If rng1.Item(i) <> rng2.Item(i) Then CompRanges = False: Exit Function
    End If:    Next
End Function

А вот это уже кажеться ТОЧНО ОНО!!!
только меленькая корректировка: правильно не
If rng1.Item(i) <> rng2.Item(i) Then CompRanges = False: Exit Function
а вот так
If rng1.Item(i) > rng2.Item(i) Then CompRanges = False: Exit Function
иначе результатом ЛЮБОГО ДЕЙСТВИЯ является ЛОЖЬ.


СПАСИБО ВАМ БОЛЬШУЩЕЕ!

[Hugo121]

Спасибо не мне, а SAS888 - это его формула.
А по поводу <>/> - я на формулу смотрел, которую Вы одобрили.

[ZSV]

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

Спасибо не мне, а SAS888 - это его формула.
А по поводу <>/> - я на формулу смотрел, которую Вы одобрили.

SAS888 - Спасибо преогромное! Я бы еще очень долго напрягала мозг без его помощи..... Так что уважаемый SAS888 Вы меня ОЧЕНЬ ВЫРУЧИЛИ!

Но и Вам Hugo121 я очень признательна, за то что помогли доработать задачку, которую я не совсем корректно сформулировала (то есть не совсем полно)

Спасибо