При работе с книгами 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 вручную
В случае, если стилей немного и нет желания разбираться с макросами, то лишние стили можно удалить вручную. Плюс этого способа в отличии от первого в том, что часть пользовательских стилей можно оставить для работы.
Для того что бы удалить пользовательский стиль откройте окно со стилями и нажмите правой клавишей на тот стиль, который вам не нужен и выберите команду «Удалить».
Стиль удален. Спасибо за прочтение статьи.
Макрос для удаления всех пользовательских стилей в документе
Автор Димычч, 09.12.2014, 09:22
« назад — далее »
Добрый день.
Тема уже поднималась, но не была решена. Прошу помочь создать инструмент для её, хотя бы частичного, решения.
Напомню, чем опасно большое количество стилей в документе:
1. Увеличение объёма файла.
2. Увеличение времени открытия/пересчёта ячеек/сохранения файла.
3. Поскольку о достижении предельного значения стилей в документе (около 65000) эксель никак не сообщает, это может выражаться, например, во внезапном отказе добавлять новые листы, изменять форматы. Также, это может служить причиной вывода сообщения «Слишком много различных форматов ячеек» со всеми вытекающими.
Прошу не путать «Стили» и «Форматы». Документ может быть переполнен стилями и быть неработоспособным, при этом, в нём может быть единственный пустой лист с очищенными форматами. Заразить свой файл этой заразой можно всего лишь скопировав пустой лист из заражённого файла.
Удаление styles.xml — не решение, так как оно удаляет и все видимые форматы в книге.
Имеется макрос, удаляющий бОльшую часть ненужных ситилей:
Sub Del_Styles()
Dim stl As Style
On Error Resume Next
For Each stl In ActiveWorkbook.Styles
If Not stl.BuiltIn Then stl.Delete
Next
End Sub
Прошу помочь расширить его функционал, а именно: перед его запуском выводить запрос «Обнаружено ** стилей. Удалить? да/нет». И после окончания работы также выводить сообщение «Удалено ** стилей. ** осталось». Хочется и Progress-bar с % выполнения, но, думаю, это слишком сложно 
Первый запрос нужен чтобы просто понять, есть ли необходимость вообще запускать этот макрос, так как он работает иногда по 30-40 мин.
Сведения о количестве стилей содержатся в styles.xml в разделах «cellStyleXfs count» и «cellXfs count».
Sub Del_Styles()
Dim stl As Style, S, col&, Scol&
On Error Resume Next
Scol = ActiveWorkbook.Styles.Count
S = MsgBox("Обнаружено " & Scol & " стилей. УДАЛИТЬ?", vbYesNo)
If S = vbYes Then
For Each stl In ActiveWorkbook.Styles
If Not stl.BuiltIn Then
stl.Delete
col = col + 1
End If
Next
End If
MsgBox "Удалено " & col & " стилей. " & Scol - col & " осталось."
End Sub
Progress-bar пока не приходилось делать так что моих знаний здесь возможно маловато для его создания.
Здорово! Всё работает!
Маленький нюанс: если в первом окне ответить НЕТ, то открывается второе, с нулевым результатом удаления. Логичнее было бы ничего не отображать после нажатия на НЕТ.
Интересное наблюдение: имеется файлик 800Кб, у него только одна табличка 20х8 на единственном листе. Запускаем макрос, видим «обнаружено 44000 стилей», макрос работает 19 минут над этим малышом, остаток — 45 стилей. Запускаю его повторно, вижу уже 316, чищу, вижу 45, и т.д. То есть остаются какие то неудаляемые. (вложение 3вв)
Цитата: Димычч от 09.12.2014, 11:52
Логичнее было бы ничего не отображать после нажатия на НЕТ.
перенесите последнее msgbox перед последим end if
47 заводских стиля у меня — они будут всегда оставаться.
про остальные ничего не скажу, знаний маловато.
Спасибо, всё работает в лучшем виде!
- Профессиональные приемы работы в Microsoft Excel
-
►
Обмен опытом -
►
Microsoft Excel -
►
Макрос для удаления всех пользовательских стилей в документе
Загрузка файлов Excel в Интернете может быть сложной, когда дело доходит до ситуаций, когда в стиле форматирования присутствует много неожиданных стилей. Итак, вы хотите удалить стиль, но есть много стилей форматирования, которые нельзя удалить.
В следующей статье рассказывается о 3 способах удаления стиля в Excel, пожалуйста, следуйте инструкциям.
Метод 1: удалить стиль вручную
Этот метод применяется только к небольшому количеству стилей, которые нужно удалить, вам нужно сделать следующее:
В интерфейсе файла Excel, чтобы удалить стиль, выберите Главная -> Стили ячеек.
Появится стиль форматирования, вы хотите удалить любой стиль, щелкните его правой кнопкой мыши и выберите «Удалить».
Метод 2: удалить стиль с помощью кода VBA
С файлом Excel со многими стилями форматирования этот способ поможет вам автоматически удалить все стили в файле Excel, вы выполните следующие действия:
Шаг 1. В файле Excel, чтобы удалить упрямый стиль форматирования, выберите «Разработчик» -> «Visual Basic» или нажмите Alt + F11, чтобы открыть окно Microsoft Visual Basic для приложения.
Шаг 2: В этом окне выберите Вставить -> Модуль.
Шаг 3. Скопируйте приведенный ниже код и вставьте его в редактор кода, затем выключите окно.
Visual Basic. Sub StyleKill () Dim styT As Style Dim intRet As Integer при ошибке Возобновить далее для каждого стиля в ActiveWorkbook.Styles, если не styT.BuiltIn, тогда, если styT.Name «1», то styT.Delete End, если следующий стиль, конец Sub
Шаг 4: Выберите «Разработчик» -> «Макросы» или выберите «Обзор» -> «Макросы», чтобы открыть диалоговое окно «Макрос».
Шаг 5: Дважды щелкните StyleKill, чтобы запустить модуль удаления стиля форматирования.
Затем проверьте еще раз, выбрав «Главная» -> «Стили ячеек», и вы увидите, что стили были стерты.
Метод 3: удалить стиль, удалив файл Style.xml
Примечание. Если ваш компьютер не отображает формат файла, вы устанавливаете формат отображения. Если вы не знаете, как отображать, перейдите в проводник, выберите «Просмотр» -> «Параметры».
Появится диалоговое окно «Параметры папок», выберите вкладку «Просмотр», в дополнительных настройках снимите флажок перед строкой «Скрыть расширения для известных типов файлов» и нажмите «ОК».
Итак, вы открыли формат файла на компьютере, затем выполните следующие действия:
Шаг 1. Откройте файл Excel .xlsx (или .xls), а затем нажмите клавишу F12, чтобы открыть окно «Сохранить как», сохраните новый файл в формате .xlsm, как показано ниже.
Шаг 2. Перейдите в каталог, содержащий только что сохраненный файл .xlsm, измените формат .xlsm на формат .zip. Появится сообщение «Переименовать», выберите «Да».
Шаг 3: Дважды щелкните, чтобы открыть zip-файл, затем выберите папку xl.
Шаг 4: Откройте файл styles.xml в Блокноте.
Шаг 5. Здесь вы используете функцию поиска (Ctrl + F) и переходите к коду.
Шаг 6. Замените код следующим кодом, который вы сохраняете в файле styles.xml.
Шаг 7. Как только вы сохраните и закроете файл styles.xml, в папке winrar открываемого файла Excel появится измененный файл styles.xml, выберите «Да» и закройте файл .zip.
Шаг 8. Преобразуйте файл из формата .zip в .xlsm.
Вы открываете файл Excel, появляется сообщение. Мы обнаружили проблему с некоторым содержимым. вы выбираете Да. Итак, вы видите результаты, затем сохраните в формате .xlsx или .xls произвольно.
Макрос удаления неиспользуемых стилей оформления
Public Sub DropUnusedStyles() Dim styleObj As Style Dim rngCell As Range Dim wb As Workbook Dim wsh As Worksheet Dim str As String Dim iStyleCount As Long Dim dict As New Scripting.Dictionary ' <- from Tools / References... / "Microsoft Scripting Runtime" ' wb := workbook of interest. Choose one of the following ' Set wb = ThisWorkbook ' choose this module's workbook Set wb = ActiveWorkbook ' the active workbook in excel Debug.Print "BEGINNING # of styles in workbook: " & wb.Styles.Count MsgBox "BEGINNING # of styles in workbook: " & wb.Styles.Count ' dict := list of styles For Each styleObj In wb.Styles str = styleObj.NameLocal iStyleCount = iStyleCount + 1 Call dict.Add(str, 0) ' First time: adds keys Next styleObj Debug.Print " dictionary now has " & dict.Count & " entries." ' Status, dictionary has styles (key) which are known to workbook ' Traverse each visible worksheet and increment count each style occurrence For Each wsh In wb.Worksheets If wsh.Visible Then For Each rngCell In wsh.UsedRange.Cells str = rngCell.Style dict.Item(str) = dict.Item(str) + 1 ' This time: counts occurrences Next rngCell End If Next wsh ' Status, dictionary styles (key) has cell occurrence count (item) ' Try to delete unused styles Dim aKey As Variant On Error Resume Next ' wb.Styles(aKey).Delete may throw error For Each aKey In dict.Keys ' display count & stylename ' e.g. "24 Normal" Debug.Print dict.Item(aKey) & vbTab & aKey If dict.Item(aKey) = 0 Then ' Occurrence count (Item) indicates this style is not used Call wb.Styles(aKey).Delete If Err.Number <> 0 Then Debug.Print vbTab & "^-- failed to delete" Err.Clear End If Call dict.Remove(aKey) End If Next aKey Debug.Print "ENDING # of style in workbook: " & wb.Styles.Count MsgBox "ENDING # of style in workbook: " & wb.Styles.Count End Sub
Переполнение коллекции стилей ячеек
Excel файл может содержать не более 65535 стилей ячеек (доступны через меню ГЛАВНАЯ — Стили ячеек). Не совсем понятно как это достигается на практике (создание стиля довольно трудоемкая операция, если только генерировать их программно), но периодически приходится сталкиваться с файлами, которые вплотную подошли к данному пределу и при попытке отформатировать любую ячейку вы получаете следующую ошибку:
Более того, коль скоро у вас завелись такие файлы, то приходилось видеть, что при копировании какого-либо листа (или даже диапазона ячеек) из переполненного файла в новую книгу в неё перебиралась и эта огромная таблица стилей. Это даже отчасти напоминает вирусное заражение, хотя, конечно, им не является.
Данная проблема не решается через пользовательский интерфейс Excel — необходима специальная программа, которая очистит таблицу стилей принудительно.
Большое количество именованных диапазонов
Второй возможный недуг, с которым борется моя утилита, состоит в том, что книга Excel может содержать огромное количество именованных диапазонов. При этом, иногда, их даже невозможно удалить через Диспетчер имён (Ctrl+F3), так как они могут быть повреждены. Признаком наличия в файле большого количества именованных диапазонов является огромное количество вопросов, которые задаёт вам Excel при попытке скопировать лист книги в саму себя. Данная проблема также имеет свойство «заражать» файлы и сохраняться длительное время.
Утилита CureExcel
Алгоритм ваших действий:
-
Открыть файл CureExcel.xlsb
-
Открыть в Excel предположительно «больной» файл
-
В CureExcel нажать кнопку «Cure Excel» — откроется следующая форма
-
В выпадающем списке выбрать ваш ранее открытый файл
-
Нажать кнопку «Диагностика»
-
Ознакомиться с выводом программы и её рекомендацией
-
В случае наличия рекомендации по лечению, нажать кнопку «Лечить», подтвердить запуск операций
-
Дождаться окончания процедуры. Стили удаляются довольно долго (65 000 стилей удаляются примерно 5-7 минут). Прогресс
виден по статусной строке Excel. По окончании процедуры выводится статистика проделанных операций и достигнутого
результата. -
Оригинальный файл остаётся неизменным, а исправленный файл с суффиксом «_CURE» сохраняется в той же
папке, то есть операции совершенно безопасны.
