Счетчик совпадающих ячеек в столбце

[ymnuhj]

Помогите пожалуйста а то я всовсем запутался

На прикрепленном рисунке задача которую я пытаюсь решить.
Я сравниваю ячейку А2 с последующими ячейками данного столбца. Заполненных подряд ячеек здесь в нем может быть сколько угодно, поэтому я использую Do loop а не For Next. Так же значения столбце сгруппированы подряд и промежутки не повторяются. Поэтому я пытаюсь найти расстояние до промежутка с помощью счетчика i, и его длину с помощью счетчика j.

Справа от первого столбца я чтоб лучше разобраться сделал запись всех переменных на какждом шаге цикла.

Вот мой код:
Sub sd()

Dim a As String, b As String, iprev As Integer
Dim k As Integer, i As Integer, j As Integer


k = 3
i = -1
j = 0
a = ThisWorkbook.Sheets("Лист1").Cells( 2, 1).Value

Do
b = ThisWorkbook.Sheets("Лист1").Cells( k, 1).Value

If a <> b Then
i = i + 1
Else
j = j + 1
End If

k = k + 1

ThisWorkbook.Sheets("Лист1").Cells( k - 1, 2).Value = k
ThisWorkbook.Sheets("Лист1").Cells( k - 1, 3).Value = i
ThisWorkbook.Sheets("Лист1").Cells( k - 1, 4).Value = j
ThisWorkbook.Sheets("Лист1").Cells( k - 1, 5).Value = a
ThisWorkbook.Sheets("Лист1").Cells( k - 1, 6).Value = b
Loop While b <> ""



End Sub

Проблемы:
1) Счетчик J работает нормально, счетчик и нужно суметь остановить после первого совпадения.
2)Программа выполняет на один цикл больше чем я хочу(строка 9 - лишняя)

Заранее всем спасибо

[ymnuhj]

Еще сейчас до меня дошло, я забыл про то что со всем остальным еще нужно определить номер промежутка(к примеру as-первый промежуток, 2 - второй, фывв - третий)

[IgorGO]

вот мой код:

Sub bb()
  Dim r As Long, ri As Long, N As Long
  r = 3: ri = 3: N = 0
  Do
    If Cells(r, 1) <> Cells(r - 1, 1) Then
      Cells(r, 2) = r - 2
      Cells(ri, 3) = r - ri
      ri = r: N = N + 1
    End If
    Cells(r, 4) = N
    r = r + 1
  Loop Until Cells(r, 1) = ""
  Cells(ri, 3) = r - ri: Cells(2, 3).ClearContents
End Sub

в В пишет расстояния от А2, в С - размер группы, в Д - номер группы.

[ymnuhj]

Удивительно. Интересно сколько мне еще предстоит учиться чтоб вложить столько функций в такой короткий код. Спасибо!!!!