Когда вы работаете с другими людьми, использующими Excel, нет ничего необычного в том, чтобы копировать листы из их книг в вашу собственную. При этом копируется не только лист. Excel также копирует их стили форматирования в вашу книгу. Удаление нежелательных стилей вручную может вызвать затруднения в зависимости от количества стилей. Однако удалить определенные пользователем стили очень просто, если вы используете макрос. Следующий макрос быстро удалит ненужные стили:

Sub StyleKill()

Dim styT As Style     Dim intRet As Integer

For Each styT In ActiveWorkbook.Styles         If Not styT.BuiltIn Then             intRet = MsgBox("Delete style '" & styT.Name & "'?", vbYesNo)

If intRet = vbYes Then styT.Delete         End If     Next styT End Sub

Макрос требует лишь небольшого ввода пользователя. Каждый раз, когда макрос обнаруживает определенный пользователем стиль, вас спрашивают, хотите ли вы его удалить. При нажатии на кнопку «Да» стиль удаляется из книги.

Вы должны знать об ограничениях такого макроса, как этот.

Самым большим ограничением является то, что если ваша книга каким-либо образом повреждена (и, да, очень возможно повреждение стилей в книге), этот макрос не исправит это повреждение. Вместо этого вы можете взглянуть на удобное стороннее решение (XLStylesTool), которое может творить чудеса, если вам нужно очистить свои стили более комплексным образом. Вы можете найти больше информации о XLStylesTool здесь:

https://sergeig888.wordpress.com/2011/03/21/net4-0-version-of-the-xlstylestool-is-now-available/

_Примечание: _

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

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (12259) применим к Microsoft Excel 2007, 2010, 2013 и 2016.

Вы можете найти версию этого совета для старого интерфейса меню Excel здесь: link: / excel-Deleting_Unwanted_Styles [Удаление нежелательных стилей].