KoplusDjon Player, спасибо большое за макрос.
Он оказался мне очень полезным.
Единственная просьба, не подскажете как сделать, чтобы не удалялся формат процентный?
А еще лучше напишите, где можно взять списки всех стилей, чтобы их можно было исключать из удаления.
Пробовал так не помогает:
В теле цикла

If st.Name <> "Процентный" Then
st.Delete
End If
If st.Name <> "Percent" Then
st.DeleteЛень мне уже разбираться с этим макросом, но если предположить, что ваш код правильный, то наверно должно быть как-то так:
Но есть одно но, стиль и формат две независимые вещи.
Следовательно ячейки имеющие формат процентный могут иметь название стиля какое угодно, поэтому этот код сохранит лишь процентный формат тех ячеек, у которых стиль имел стандартное название. Но как показывает практика, в основном Excel сам в больших количествах генерирует кучу названий стилей с бредовыми названиями, что собственно в конце концов и приводит к переполнению количества стилей.
Поэтому так просто эту задачу не решить.
Можно пойти другим путем, перед запуском этого макроса, запустить другой макрос, который сохранит данные о всех ячейках с процентным форматированием (о самом процентном форматировании). Затем применить макрос по удалению лишних стилей. После запустить макрос, который заново применит процентное форматирование к этим ячейкам.

viktturHugo121пропущено...

Я такого не говорил. Это все Djon Player :)
Есть ли какая-то возможность эту историю посмотреть?vikttur,

Всё правильно, это говорил я тут .

viktturDjon Player, я это заметил :)
Меня интересует, есть ли лазейка для просмотра журнала?что-то я не в теме о каком журнале идёт речь, о журнале изменений на форуме, или журнале изменений в Excel.

viktturDjon Player, прошу прощения, запутал.
Я понял, что KeepChangeHistory - это какая-то память изменений, своего рода журнал для записей изменений. Поэтому и спрашиваю - есть ли какая-либо возможность посмотреть эти записи?Да, совершенно верно, так и есть, отвечает за сохранение журнала изменений. Можно ли это как-то посмотреть не знаю, возможно встроенных функций для этого нет. Но теоретически могут быть внешние программы, которые могут это сделать.

viktturСпасибо. Было бы хорошо уметь чистить. Попадаются файлы, которые при переформировании в новый документ уменьшаются в весе. Подозреваю, что виноват в "толстении" именно KeepChangeHistory.Открыть Visual Basic, выделить мышкой объект ЭтаКнига и в окне PropertiesWindow найти параметр KeepChangeHistory и поменять его значение на False. После этого пересохранить файл. После можно вернуть обратно значение True.