Макрос для удаления стилей в excel

Слишком много различных форматов ячеек

Это может случиться и с вами.

Работая с большой книгой в Excel в один совсем не прекрасный момент вы делаете что-то совершенно безобидное (добавление строки или вставку большого фрагмента ячеек, например) и вдруг получаете окно с ошибкой «Слишком много различных форматов ячеек»:

Иногда эта проблема возникает в еще более неприятном виде. Накануне вечером вы, как обычно, сохранили и закрыли свой отчет в Excel, а сегодня утром не можете его открыть — выдается подобное же сообщение и предложение удалить все форматирование из файла. Радости мало, согласитесь? Давайте разберем причины и способы исправления этой ситуации.

Почему это происходит

Такая ошибка возникает, если в рабочей книге превышается предельно допустимое количество форматов, которое Excel может сохранять:

• для Excel 2003 и старше — это 4000 форматов
• для Excel 2007 и новее — это 64000 форматов

Причем под форматом в данном случае понимается любая уникальная комбинация параметров форматирования:

• шрифт
• заливки
• обрамление ячеек
• числовой формат
• условное форматирование
  

Так, например, если вы оформили небольшой фрагмент листа подобным образом:

… то Excel запомнит в книге 9 разных форматов ячеек, а не 2, как кажется на первый взгляд, т.к. толстая линия по периметру создаст, фактически 8 различных вариантов форматирования. Добавьте к этому дизайнерские танцы со шрифтами и заливками и тяга к красоте в большом отчете приведет к появлению сотен и тысяч подобных комбинаций, которые Excel будет вынужден запоминать. Размер файла от этого, само собой, тоже не уменьшается.

Подобная проблема также часто возникает при многократном копировании фрагментов из других файлов в вашу рабочую книгу (например при сборке листов макросом или вручную). Если не используется специальная вставка только значений, то в книгу вставляются и форматы копируемых диапазонов, что очень быстро приводит к превышению лимита.

Как с этим бороться

Направлений тут несколько:

1. Если у вас файл старого формата (xls), то пересохраните его в новом (xlsx или xlsm). Это сразу поднимет планку с 4000 до 64000 различных форматов.
2. Удалите избыточное форматирование ячеек и лишние «красивости» с помощью команды Главная — Очистить — Очистить форматы (Home — Clear — Clear Formatting). Проверьте, нет ли на листах строк или столбцов отформатированных целиком (т.е. до конца листа). Не забудьте про возможные скрытые строки и столбцы.
   
3. Проверьте книгу на наличие скрытых и суперскрытых листов — иногда на них и кроются «шедевры».
   
4. Удалите ненужное условное форматирование на вкладке Главная — Условное форматирование — Управление правилами — Показать правила форматирования для всего листа (Home — Conditional Formatting — Show rules for this worksheet).
5. Проверьте, не накопилось ли у вас избыточное количество ненужных стилей после копирования данных из других книг. Если на вкладке Главная (Home) в списке Стили (Styles) огромное количество «мусора»:

   

   …то избавиться от него можно с помощью небольшого макроса. Нажмите Alt+F11 или кнопку Visual Basic на вкладке Разработчик (Developer), вставьте новый модуль через меню Insert — Module и скопируйте туда код макроса:

Sub Reset_Styles()
    'удаляем все лишние стили
    For Each objStyle In ActiveWorkbook.Styles
        On Error Resume Next
        If Not objStyle.BuiltIn Then objStyle.Delete
        On Error GoTo 0
    Next objStyle
    'копируем стандартный набор стилей из новой книги
    Set wbMy = ActiveWorkbook
    Set wbNew = Workbooks.Add
    wbMy.Styles.Merge wbNew
    wbNew.Close savechanges:=False
End Sub
  

Запустить его можно с помощью сочетания клавиш Alt+F8 или кнопкой Макросы (Macros) на вкладке Разработчик (Developer). Макрос удалит все неиспользуемые стили, оставив только стандартный набор:

Ссылки по теме

• Как автоматически подсвечивать ячейки с помощью условного форматирования в Excel
• Что такое макросы, куда и как копировать код макроса на Visual Basic, как их запускать
• Книга Excel стала очень тяжелой и медленной — как исправить?
  

При работе с книгами Excel, особенно при копировании листов из одной книги в другую, можно столкнуться с ситуацией, когда в файле появляется множество лишнего «хлама», в том числе дополнительных стилей оформления ячеек, которые вам не нужны и которые следует удалить, так как они увеличивают размер файла. Рассмотрим два способа, как можно удалить стили в Excel.

Способ 1. Удаление лишних стилей в Excel при помощи макроса

Для примера я создал три пользовательских стиля, которые не использую в книге (в реальной жизни их может быть тысячи), которые необходимо удалить.

Воспользуемся макросом Excel, который автоматически удалит все такие стили. Для того, чтобы создать макрос, во-первых, необходимо открыть сам редактор макросов Visual Basic. Для этого нажмите комбинацию клавиш Alt+F11, либо зайдите в меню «Разработчик» и нажмите кнопку Visual Basic.

В случае, если у вас в ленте нет меню «Разработчик», то вам нужно его добавить. Для этого нажмите на ленту правой кнопкой и выберите пункт «Настройка ленты…»

В открывшемся окне ставим галочку напротив пункта «Разработчик» и необходимое нам меню появляется на ленте.

Итак, открыли Visual Basic. Выбираем меню «Insert» и в нем команду «Module».

В открывшемся окне вставляем следующий макрос:

Sub StyleKiller()
Dim N As Long, i As Long
With ActiveWorkbook
    N = .Styles.Count
    For i = N To 1 Step -1
        If Not .Styles(i).BuiltIn Then .Styles(i).Delete
    Next i
End With
MsgBox («Лишние стили удалены»)
End Sub

Запускаем макрос, нажав на кнопку Run

После того, как макрос отработает (это может занять длительное время в случае, если пользовательских стилей очень много), вам будет выведено сообщение, что лишние стили удалены.

Закрываем Visual Basic, возвращаемся в Excel. Теперь в стилях остались только те, которые были в Excel по умолчанию.

Способ 2. Удаление стилей в Excel вручную

Стиль удален. Спасибо за прочтение статьи.

Ok, this wasn’t as hard to do as I first thought.

Bit messy as I don’t often use vba; but this code will roll back to just the default styles:

Sub DefaultStyles()
   Dim MyBook As Workbook
   Dim tempBook As Workbook
   Dim CurStyle As Style
   Set MyBook = ActiveWorkbook
   On Error Resume Next
   For Each CurStyle In MyBook.Styles
      Select Case CurStyle.Name
         Case "20% - Accent1", "20% - Accent2", _
               "20% - Accent3", "20% - Accent4", "20% - Accent5", "20% - Accent6", _
               "40% - Accent1", "40% - Accent2", "40% - Accent3", "40% - Accent4", _
               "40% - Accent5", "40% - Accent6", "60% - Accent1", "60% - Accent2", _
               "60% - Accent3", "60% - Accent4", "60% - Accent5", "60% - Accent6", _
               "Accent1", "Accent2", "Accent3", "Accent4", "Accent5", "Accent6", _
               "Bad", "Calculation", "Check Cell", "Comma", "Comma [0]", "Currency", _
               "Currency [0]", "Explanatory Text", "Good", "Heading 1", "Heading 2", _
               "Heading 3", "Heading 4", "Input", "Linked Cell", "Neutral", "Normal", _
               "Note", "Output", "Percent", "Title", "Total", "Warning Text"
         Case Else
            CurStyle.Delete
      End Select
   Next CurStyle
   Set tempBook = Workbooks.Add
   Application.DisplayAlerts = False
   MyBook.Styles.Merge Workbook:=tempBook
   Application.DisplayAlerts = True
   tempBook.Close
End Sub

Переполнение коллекции стилей ячеек

Excel файл может содержать не более 65535 стилей ячеек (доступны через меню ГЛАВНАЯ — Стили ячеек). Не совсем понятно как это достигается на практике (создание стиля довольно трудоемкая операция, если только генерировать их программно), но периодически приходится сталкиваться с файлами, которые вплотную подошли к данному пределу и при попытке отформатировать любую ячейку вы получаете следующую ошибку:

Более того, коль скоро у вас завелись такие файлы, то приходилось видеть, что при копировании какого-либо листа (или даже диапазона ячеек) из переполненного файла в новую книгу в неё перебиралась и эта огромная таблица стилей. Это даже отчасти напоминает вирусное заражение, хотя, конечно, им не является.

Данная проблема не решается через пользовательский интерфейс Excel — необходима специальная программа, которая очистит таблицу стилей принудительно.

Большое количество именованных диапазонов

Второй возможный недуг, с которым борется моя утилита, состоит в том, что книга Excel может содержать огромное количество именованных диапазонов. При этом, иногда, их даже невозможно удалить через Диспетчер имён (Ctrl+F3), так как они могут быть повреждены. Признаком наличия в файле большого количества именованных диапазонов является огромное количество вопросов, которые задаёт вам Excel при попытке скопировать лист книги в саму себя. Данная проблема также имеет свойство «заражать» файлы и сохраняться длительное время.

Утилита CureExcel

Алгоритм ваших действий:

1. Открыть файл CureExcel.xlsb

2. Открыть в Excel предположительно «больной» файл

3. В CureExcel нажать кнопку «Cure Excel» — откроется следующая форма

   

4. В выпадающем списке выбрать ваш ранее открытый файл

5. Нажать кнопку «Диагностика»

6. Ознакомиться с выводом программы и её рекомендацией

7. В случае наличия рекомендации по лечению, нажать кнопку «Лечить», подтвердить запуск операций

8. Дождаться окончания процедуры. Стили удаляются довольно долго (65 000 стилей удаляются примерно 5-7 минут). Прогресс
   виден по статусной строке Excel. По окончании процедуры выводится статистика проделанных операций и достигнутого
   результата.

9. Оригинальный файл остаётся неизменным, а исправленный файл с суффиксом «_CURE» сохраняется в той же
   папке, то есть операции совершенно безопасны.

Файлы для скачивания

Скачать утилиту CureExcel

Скачать пример файла с большим количеством стилей

I am working in a large xlsb (Microsoft Excel Binary Workbook) and have noticed that there is a very large number of custom styles saved in the file. I think the styles were all unintentionally included in the file when worksheets were copied in from other workbooks. I would like to delete all of the custom styles but the manual approach (right click and delete) doesn’t work. I then searched online for VBA solutions and found the three macros below but these doesn’t work either. When I run the macros they just immediately jump to the MsgBox without having deleted any of the custom styles. Hopefully someone here can shed some light on how I can either reconfigure the macros or direct me towards another solution. -> See updated info below!

Sub clear_all_styles()
 Dim styT As Style
 On Error Resume Next
 For Each styT In ActiveWorkbook.Styles
     If Not styT.BuiltIn Then
         If styT.Name <> "1" Then styT.Delete
     End If
 Next styT
 MsgBox "Macro completed" 'can be commented out
End Sub

.

Sub DeleteStyles()
    On Error Resume Next
    For Each sty In ActiveWorkbook.Styles
        If Not sty.BuiltIn Then
            sty.Delete
        End If
    Next sty
    MsgBox "Macro completed" 'can be commented out
End Sub

.

Sub StyleKiller()
    Dim st As Style
    On Error Resume Next
    For Each st In ActiveWorkbook.Styles
      If Not st.BuiltIn Then
        st.Delete
      End If
    Next
    On Error GoTo 0
    MsgBox "Macro completed" 'can be commented out
End Sub

Updated Info: After searching more solution online (generally, none of these worked) I finally found a larger solution which worked (included below). This solution deleted the vast majority of the custom styles but approx. 20 styles remain which cant be deleted by the macro nor by manual action. I notice that all of these remaining custom styles seem to have special signs in them and I’m wondering if that’s the reason they can’t be deleted. If anyone can provide any guidance on this is would be much appreciated!

    Sub RebuildDefaultStyles()
    
    'The purpose of this macro is to remove all styles in the active
    'workbook and rebuild the default styles.
    'It rebuilds the default styles by merging them from a new workbook.
    
    'Dimension variables.
       Dim MyBook As Workbook
       Dim tempBook As Workbook
       Dim CurStyle As Style
    
       'Set MyBook to the active workbook.
       Set MyBook = ActiveWorkbook
       On Error Resume Next
       'Delete all the styles in the workbook.
       For Each CurStyle In MyBook.Styles
          'If CurStyle.Name <> "Normal" Then CurStyle.Delete
          Select Case CurStyle.Name
             Case "20% - Accent1", "20% - Accent2", _
                   "20% - Accent3", "20% - Accent4", "20% - Accent5", "20% - Accent6", _
                   "40% - Accent1", "40% - Accent2", "40% - Accent3", "40% - Accent4", _
                   "40% - Accent5", "40% - Accent6", "60% - Accent1", "60% - Accent2", _
                   "60% - Accent3", "60% - Accent4", "60% - Accent5", "60% - Accent6", _
                   "Accent1", "Accent2", "Accent3", "Accent4", "Accent5", "Accent6", _
                   "Bad", "Calculation", "Check Cell", "Comma", "Comma [0]", "Currency", _
                   "Currency [0]", "Explanatory Text", "Good", "Heading 1", "Heading 2", _
                   "Heading 3", "Heading 4", "Input", "Linked Cell", "Neutral", "Normal", _
                   "Note", "Output", "Percent", "Title", "Total", "Warning Text"
                'Do nothing, these are the default styles
             Case Else
                CurStyle.Delete
          End Select
    
       Next CurStyle
    
       'Open a new workbook.
       Set tempBook = Workbooks.Add
    
       'Disable alerts so you may merge changes to the Normal style
       'from the new workbook.
       Application.DisplayAlerts = False
    
       'Merge styles from the new workbook into the existing workbook.
       MyBook.Styles.Merge Workbook:=tempBook
    
       'Enable alerts.
       Application.DisplayAlerts = True
    
       'Close the new workbook.
       tempBook.Close
    
    End Sub