KutoolsforOffice — Одно решение — пять мощных инструментов.Меньше усилий — больше результата.

Как удалить условное форматирование, но сохранить уже применённое форматирование в Excel?

АвторСаньДата изменения

В Excel вы можете применять Использовать условное форматирование к Установить формат ячейки или строкам на основе определённого условия. Однако в некоторых случаях может потребоваться удалить правила Использовать условное форматирование, оставив только форматирование ячеек. В этой статье вы найдёте способы удаления Использовать условное форматирование с сохранением форматирования в Excel.

Удаление Использовать условное форматирование с сохранением форматирования с помощью VBA

Легко Установить формат ячейки по заданным критериям с помощью Kutools для Excel хорошая идея3


синяя стрелка направо с пузырём Удаление Использовать условное форматирование с сохранением форматирования с помощью VBA

В Excel нет прямого способа удаления условного форматирования, кроме как с помощью VBA.

1. Активируйте лист, из которого нужно удалить правила условного форматирования, сохранив при этом форматирование, и нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic для приложений.

2. Щелкните Вставка > Модуль и вставьте приведённый ниже код VBA в окно модуля. См. снимок экрана:

VBA: удаление правил условного форматирования с сохранением уже применённого форматирования.

Sub Keep_Format()
'UpdatebyExtendoffice20181128
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Select range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    For Each xCell In xRg
        With xCell
            .Font.FontStyle = .DisplayFormat.Font.FontStyle
            .Font.Strikethrough = .DisplayFormat.Font.Strikethrough
            .Interior.Pattern = .DisplayFormat.Interior.Pattern
            If .Interior.Pattern <> xlNone Then
                 .Interior.PatternColorIndex = .DisplayFormat.Interior.PatternColorIndex
                .Interior.Color = .DisplayFormat.Interior.Color
            End If
            .Interior.TintAndShade = .DisplayFormat.Interior.TintAndShade
            .Interior.PatternTintAndShade = .DisplayFormat.Interior.PatternTintAndShade

        End With
    Next
    xRg.FormatConditions.Delete
End Sub

3. Нажмите клавишу F5, чтобы запустить код. Появится диалоговое окно для выбора диапазона, из которого нужно удалить условное форматирование. См. снимок экрана:
код VBA для выбора диапазона с целью удаления условного форматирования

4. Нажмите кнопку ОК, после чего правила «Использовать условное форматирование» будут удалены из «Указать диапазон», но само форматирование сохранится.


синяя стрелка направо с пузырём Легко Установить формат ячейки по заданным критериям с помощью Kutools для Excel

Представляем удобный инструмент — Kutools для Excel, с помощью которого можно быстро и легко установить формат ячеек по заданным критериям без использования формул благодаря функции Выбрать определенные ячейки.

Kutools для Excelпредлагает более 300 расширенных функций для упрощения сложных задач, повышая креативность и эффективность.Интегрировано с возможностями ИИ, Kutools автоматизирует задачи с высокой точностью, делая управление данными простым и удобным.Подробная информация о Kutools для Excel…         Бесплатная пробная версия…

После бесплатной установкиKutools для Excel выполните следующие действия:

1. Выделите диапазон, который нужно отформатировать, и нажмите Kutools > Выделить > Выбрать определенные ячейки. См. снимок экрана:
нажмите функцию «Выделить определённые ячейки» Kutools

2. В диалоговом окне Выбрать определенные ячейки выберите нужный вариант в разделе Выбрать тип, затем укажите критерии в раскрывающемся списке и текстовом поле в разделе Указать тип. См. снимок экрана:
задайте критерии в диалоговом окне

3. Нажмите кнопку ОК. Появится диалоговое окно с информацией о количестве выделенных ячеек. Чтобы закрыть его, нажмите кнопку ОК.
появляется диалоговое окно с указанием количества выделенных ячеек

4. Теперь вы увидите, что ячейки, соответствующие заданным критериям, выделены. Щёлкните правой кнопкой мыши по выделенным ячейкам и в контекстном меню выберите пункт Установить формат ячейки. В появившемся диалоговом окне Установить формат ячейки укажите желаемое форматирование. См. снимок экрана:
отформатируйте выделенные ячейки по своему усмотрению

5. Нажмите кнопку ОК. Теперь выделенные ячейки отформатированы без применения каких-либо правил условного форматирования. См. снимок экрана:

 Установить формат ячейки  Установить формат строки
Формат ячеек  Формат строк

Лучшие инструменты повышения продуктивности в Office

🤖KUTOOLS AI Помощник: Преобразуйте Анализ данных с помощью:Интеллектуального выполнения   |  Генерации кода|  Создания пользовательские формулы  |  Анализа данных и построения диаграмм|  Вызова Расширенные функции
Популярные функции:Поиск, выделение или Отметить дубликаты   |  Удалить пустые строки   |  Объединить столбцы или ячеек без потери данных   |  Округление без использования формул
Супер ПОИСК:VLookup по нескольким критериям  |  VLookup по нескольким значениям  |   VLookup по нескольким листам   |   Распознавание нечетких соответствий
Расширенный раскрывающийся список:Быстрое создание выпадающего списка   |  Зависимый выпадающий список   |  Выпадающий список с множественным выбором
Управление столбцами:Добавление заданного количества столбцов|Перемещение столбцов|Переключение видимости скрытых столбцов|Сравнение диапазонов и столбцов
Избранные функции:Сетка фокусировки   |  Просмотр дизайна   |Улучшенная строка формулы   | Управление рабочими книгами и листами   |  Библиотека ресурсов(автотекст)|  Выбор даты   |  Объединить листы  |  Шифрование/Расшифровать ячейки   | Отправка писем по списку   |  Супер фильтр   |   Специальный фильтр(Фильтр ячеек с жирным шрифтом/курсив/зачёркивание…) …
Лучшие наборы инструментов 15:12 Текстовыеинструменты(Добавить текст,Удалить определенные символы, …)|   50+Типыдиаграмм(Диаграмма Ганта, …)|   40+ Практические формулы(Рассчитать возраст на основе даты рождения, …)|   19 Инструментывставки(Вставить QR-код,Вставка изображения по пути, …)|   12 Инструментыпреобразования(Преобразовать в слова,Конвертация валют, …)|   7 Объединить и разделитьИнструменты(Расширенное объединение строк,Разделить ячейки, …)|… и многое другое
Используйте Kutools на предпочитаемом языке — поддержка английского, испанского, немецкого, французского, китайского и ещё 40+ языков!

Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…


Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу

  • Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
  • Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!

Все надстройки Kutools — один установщик

Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.

ExcelWordOutlookTabsPowerPoint
  • Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
  • Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
  • Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
  • 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
  • Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек