Добрый вечер! Нужна Ваша помощь! Фильтрую в табличке слова с помощью условного форматирования, нужно удалить лишние фразы, т.е. выделяю ячейки цветом, в которых содержится определенное слово. Таких слов набралось большое количество и мне нужен список этих слов, как можно их скопировать из правил условного форматирования. Что бы было понятней прикрепляю скрин.. Очень надеюсь на подсказку, т.к. переписывать все это займет очень много времени.
Добрый вечер! Нужна Ваша помощь! Фильтрую в табличке слова с помощью условного форматирования, нужно удалить лишние фразы, т.е. выделяю ячейки цветом, в которых содержится определенное слово. Таких слов набралось большое количество и мне нужен список этих слов, как можно их скопировать из правил условного форматирования. Что бы было понятней прикрепляю скрин.. Очень надеюсь на подсказку, т.к. переписывать все это займет очень много времени.Per4ik_01
Запустите на листе макрос, он выведет все условия в столбец С [vba]
Код
Sub tt() Dim aa As FormatCondition nf_ = Cells.FormatConditions.Count If nf_ = 0 Then MsgBox "На листе условного форматирования нет" Exit Sub End If For i = 1 To nf_ If Cells.FormatConditions(i).Type = xlTextString Then n_ = n_ + 1 Range("C" & n_) = Cells.FormatConditions(i).Text End If Next i End Sub
[/vba] Или скопируйте свои значения, вставьте в приложенную книгу и нажмите кнопку. Потом на всякий случай проверьте на задвоение.
Запустите на листе макрос, он выведет все условия в столбец С [vba]
Код
Sub tt() Dim aa As FormatCondition nf_ = Cells.FormatConditions.Count If nf_ = 0 Then MsgBox "На листе условного форматирования нет" Exit Sub End If For i = 1 To nf_ If Cells.FormatConditions(i).Type = xlTextString Then n_ = n_ + 1 Range("C" & n_) = Cells.FormatConditions(i).Text End If Next i End Sub
[/vba] Или скопируйте свои значения, вставьте в приложенную книгу и нажмите кнопку. Потом на всякий случай проверьте на задвоение._Boroda_
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
