перебор значений условного форматирования

В файле пользователями копируются строки, столбцы, ячейки, диапазоны, в результате чего количество задублированных правил условного форматирования переваливает за тысячу (при начальных 40). Я хочу проверять есть ли на листе дублированные правила условного форматирования и удалять их с помощью VBA, но не пойму каким образом получить доступ (и можно ли это сделать) к перечню правил. Доступ к стилям ячейки можно получить через Dim fc As FormatCondition test = fc.Type (или) test = fc.Interior.Color а целиком "правило" можно просмотреть? Есть конечно вариант перебора всех правил УФ в диапазоне For Each fc In range.FormatConditions и сравнение всех свойств правил между собой. Если они полностью совпадают - удалять одно из правил, но мне видится это очень ресурсозатратным как в плане разработки (нужно понять какие свойства объекта fc нужно сравнивать), так и в плане отработки (тысяча правил на листе)


Ответы (0 шт):