Страницы: 1
RSS
Выделение блоков одинаковых значений, Выделение двумя цветами блоков рядом стоящих повторяющихся значений в строке
 
Подскажите, пожалуйста, как можно настроить в Excel выделение (заливка цветом ячейки) 2 цветами (с чередованием) по строке повторяющихся групп значений (более трех подряд)? Выделяются только стоящие рядом повторяющиеся значения.

Например, 5 5 5 6 4 7 8 8 8 3 3 (Тройки не выделены, так как их только  две).

Заранее благодарна за помощь.
 
Попробуйте макрос
Код
Sub Tablica()
Dim i As Long
Dim iLastRow As Long
Dim j As Integer
Dim n As Integer
 iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
 Range("B2:M" & iLastRow).Interior.ColorIndex = xlNone
  For i = 2 To iLastRow
    For j = 2 To 13
        n = 0
      Do
        n = n + 1
      Loop While Cells(i, j + n) = Cells(i, j)
            If n >= 3 Then Range(Cells(i, j), Cells(i, j + n - 1)).Interior.ColorIndex = n
        j = j + n - 1
    Next
  Next
End Sub
Изменено: Kuzmich - 25.03.2020 18:59:13
 
Спасибо, но не сработало(
Изменено: hot_al - 25.03.2020 19:14:53
 
Цитата
но не сработало
Что при этом на экране при запуске макроса?
 
Microsoft Visual Basic for Application (400)
 
А макрос в стандартном модуле?
 
Да, и это сводная огромная таблица (200 тыс. строк и 50 столбцов)
Страницы: 1
Наверх