Как оптимизировать?

[Hugo121]

doober, спасибо, уловил. Хотя на практике чаще Dim M6() As Variant, что смысла не имеет задавать - массивы одинаковые...

[А)-(дрей]

Data = Application.CountIf([B:B], ">0")

Dim M6()
ReDim M6(1 To Data)
M6(i) = i

Dim M7()
ReDim M7(1 To Data + 1)
M7(i) = Application.Max(Range(Cells(i + 1, 2), Cells(i + 1, 5)))

' Вот теперь есть массив значений M7 и чтобы не обращаться к ячейкам
' хочу сравнить массивы
Dim M8()
    ReDim M8(1 To Data)
    M8(i) = IIf(M7(i) = M7(i + 1), 1, 0)

Ну вот опять, здесь то где ошибка?

[Hugo121]

Нет. Проверил при i=10 и числах в [B:B].

[А)-(дрей]

А я вот подозреваю ошибку, потому что временно дабавляю такие куски кода, чтобы видеть массивы:

Cells(i + 1, 100) = M6(i)

Cells(i + 1, 101) = M7(i)

Cells(i + 1, 102) = M8(i) 'не обрабатывается должным образом

Массив M8 выдает все значения "0", и не одному значению не присваивает "1"

[Hugo121]

В окне Locals легче массив отслеживать.
В итоге M8(10)=0

Sub tt()
i = 10
Data = Application.CountIf([B:B], ">0")

Dim M6()
ReDim M6(1 To Data)
M6(i) = i

Dim M7()
ReDim M7(1 To Data + 1)
M7(i) = Application.Max(Range(Cells(i + 1, 2), Cells(i + 1, 5)))

' Вот теперь есть массив значений M7 и чтобы не обращаться к ячейкам
' хочу сравнить массивы
Dim M8()
    ReDim M8(1 To Data)
    M8(i) = IIf(M7(i) = M7(i + 1), 1, 0)

End Sub

Но если так:
M7(i) = Application.Max(Range(Cells(i + 1, 2), Cells(i + 1, 5)))
M7(11) = Application.Max(Range(Cells(i + 1, 2), Cells(i + 1, 5)))
то в итоге M8(10)=1.

В приведённом выше куске кода ведь нет цикла, и как на деле меныется i - мы не знаем.

[А)-(дрей]

В окне Locals легче массив отслеживать.

Вы уж не ругайте сильно, не умею я им пользоваться

Вот файл, своими примитивными способами я вывожу в 100-том столбце CX результаты полученного массива M8, там все "0", хотя должно получиться по аналогии с 8-ым столбцом H.

[Hugo121]

Почему на каждом шаге цикла Вы создаёте массив заново? Не в этом ли причина?
Насчёт окна Locals - в режиме отладки, т.е. при пошаговом прогоне или на паузе можно просмотреть содержимое массива, кликая по дереву.

[А)-(дрей]

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

[А)-(дрей]

Сделал объявление массивов перед началом открытия цикла... не помогло однако.. мда
Кстати с окном Locals я разобрался - останавливаю цикл и смотрю просчитанные значения массивов на "+"

[Hugo121]

Ну а если так:

    '=====================================Объявление цикла==================================================
    Dim M6()
    ReDim M6(1 To Data)
    Dim M7()
    ReDim M7(1 To Data + 1)
    Dim M8()
    ReDim M8(1 To Data)

    For i = 1 To Data
    '======================================================================================================