VBA объединение макросов

[DJTreeno]

Доброго всем времени суток!!!

Дело в том что у меня ситуация следующая - есть таблица, в столбце (А) которой чередуется текст с нулями и столбец (Х), где я написал условие и там идут единицы по строкам а в конце нули, которые говорят о том что это конец таблицы, то есть с помощью этого цикла:

For i = 1 To 1000
If Range("X" & Trim(Str(i))).Value = "0" Then
Exit For
End If
Next
Range("Z1") = i

Я получаю общее число заполненных строк в таблице, ну и для себя я его присвоил ячейке Z1, чтоб проверить.

Пожалуйста подскажите, как в этом макросе:

Sub Merge()

Dim r As Range
With Application
.ScreenUpdating = 0: .DisplayAlerts = 0
For Each r In Range([a1], Cells(Rows.Count, 1).End(xlUp)).Areas.Item(1)
If r.Value = 0 Then Range(r, r.Offset(-1)).Merge
Next
.ScreenUpdating = 1: .DisplayAlerts = 1
End With
End Sub

сделать так чтоб объединение ячеек завершилось на значении i, включительно, полученном при выполнении моего цикла.

Буду очень признателен!!!

[nilem]

В ст. Х идут подряд единицы и потом подряд нули. Строка с последней единицей - это последняя обрабатываемая строка в ст.А. Так?
Если так, то можно вот так

Sub MergeAtA()
Dim r As Range, i&
i = WorksheetFunction.Sum(Range("X1:X" & Cells(Rows.Count, "X").End(xlUp).Row))
'MsgBox i
With Application
    .ScreenUpdating = 0: .DisplayAlerts = 0
    For Each r In Range("A1:A" & i).Areas.Item(1)
        If r.Text = 0 Then Range(r, r.Offset(-1)).Merge
    Next
    .ScreenUpdating = 1: .DisplayAlerts = 1
End With
End Sub

Строк у вас сколько, i чему равно?

[DJTreeno]

Количество строк меняется в зависимости от пользователя, щас попробую, спасибо!!!

[DJTreeno]

Все работает. Спасибо огромное за помощь!!!