Чередующиеся строки по параметру - Полезные приёмы - VBA - Готовые решения$

= Мир MS Excel/Готовые решения

Главная » Готовые решения » VBA » Полезные приёмы

Чередующиеся строки по параметру

	08.03.2017, 17:21
[ Файл-пример (41.5 Kb) ]
предположим, нужно выделить строки таблицы по параметру
Sub Raskraska() Dim x, i&, j&, s$, TmpS$ Dim bu As Boolean With Range("A1:B" & Cells(Rows.Count, 1).End(xlUp).Row + 1) x = .Value ' .Resize(, 6).Interior.Color = xlNone End With For i = 2 To UBound(x) s = x(i, 1) & "~" & x(i, 2) If TmpS <> s Then If bu Then Cells(j, 1).Resize(i - j, 6).Interior.Color = 15853276 j = i TmpS = s bu = Not bu End If Next i End Sub
1 2 3 4 5 Добавил: nilem \|
Просмотров: 1557 \| Рейтинг: 0.0/0

Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]