Поиск двух одинаковых строк идущих последовательно

[stasbz]

Подскажите, как я могу найти строки с одинаковыми значениями чисел, при условии, что эти строки следуют друг за другом? (рассматриваем только один столбец)
Удобно было бы делать еще замену одинаковых ячеек на какой-то один и тот же символ : #

[EducatedFool]

Ну, нашли мы такие строки, и что дальше?
Что с ними надо сделать?

Если просто выделить, то используйте условное форматирование (с формулой в качестве условия)

при условии, что эти строки следуют друг за другом?

Это обязательное условие?

Если через 5 строк встретится такое же значение, его не надо заменять на # ?

Макрос устроит?

[stasbz]

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

Это обязательное условие?

Если через 5 строк встретится такое же значение, его не надо заменять на # ?

Макрос устроит?

Лучше всего показать на примере:
1
2
3 интересует эти две ячейки
3 интересует эти две ячейки
4
5 интересует эти две ячейки
5 интересует эти две ячейки
6
3 не интересует
7
3 интересует эти две ячейки
3 интересует эти две ячейки
8
То есть важно, чтобы строки идущие друг за другом были одинаковые!
вторую ячейку в этом случае надо заменить на символ # или другой символ.
Может быть и макрос устроит, к сожалению опыт нет никакого. с excel не работал. главное задачу решить.

[EducatedFool]

Пример во вложении.

Нажми сначала зелёную кнопочку, а потом желтую.
(при нажатии зелёной кнопки ячейки заполняются случайными числами)
Выделение цветом происходит при помощи условного форматирования.

Замена значений - при помощи кода:

Sub Заполнить()
    Dim sh As Worksheet: Set sh = ActiveSheet: sh.UsedRange.ClearContents
    For i = 1 To 100: Cells(i, 1) = Fix(Rnd(i) * 6): Next
End Sub

Sub Обработка()
    Dim cell As Range, ra As Range: Application.ScreenUpdating = False
    Set ra = Range([A1], Range("A" & Rows.Count).End(xlUp))
    For Each cell In ra.Cells
        If cell = cell.Offset(1) Then cell.Offset(1) = "#"
    Next cell
End Sub

[stasbz]

пример работает. все отлично. сейчас пытаюсь подключить данный макрос к моему документу excel.