For Each Next

[Trimbl]

Уважаемые форумчане, здравствуйте!
Для поиска ячейки диапазона использую Управляющую инструкцию For Each Next. Но, для диапазона где присутствуют объедененные ячейки эта инструкция естественно не работает. Вопрос:
1. Возможно ли данную инструкцию заставить проверять ячейки диапазона с шагом через одну ячейку начиная с первой ячейки указанного диапазона?
2. Будет-ли выполнятся инструкцию For Each Next Если в прилагаемом вложении в коде цикла прописать вначале разобъединении ячейки, далее проверка на условие, объединение(разобъединенных) ячеек, переход к проверке следующей ячейки.(с заданным шагом)
Спасибо за внимание.

[nilem]

Типа такого:

Sub ert()
Dim i As Long
With Range("C1:C" & Cells(Rows.Count, "A").End(xlUp).Row - 4)
    For i = 1 To .Count Step 2
        If IsEmpty(.Item(i)) Then
            Exit Sub
        Else
            .Item(i).MergeArea.ClearContents
        End If
    Next
End With
End Sub

[Trimbl]

[QUOTE=nilem;1004668]Типа такого:

Уважаемый nilem, мои "глубокие " познания в области программирования не позволяют мне вредничать. Я не получил ответа на вопросы но зато, получил готовое решение. Код "Типа того" отлично работает, положительный результат, с Вашей помощью - получен. Премного благодарен.

[DiemonStar]

1. конструкция For Each .. Next изначально сделана для последовательного перебора всех элементов массива. Заставить её перескакивать через элементы не получится. Разве что так:

  For Each Rw In Columns(3).Rows
    If Not Rw.Cells(1, 1).MergeCells And IsEmpty(Rw.Cells(1, 1)) Then
      Exit For
    ElseIf Not IsEmpty(Rw.Cells(1, 1)) Then
       Cells(Rw.Row, 3).MergeArea.ClearContents
    End If
  Next Rw

[Hugo121]

Ну можно исхитриться и перескочить

Sub tt()
    Dim cc As Range, i&
    For Each cc In [a1:a10]
        i = i + 1
        If i Mod 2 = 0 Then cc.Select
    Next
End Sub