Когда вы работаете с другими людьми, использующими 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

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

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

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

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

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

Этот совет (2135) применим к Microsoft Excel 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Excel (Excel 2007 и более поздних версий) здесь:

link: / excelribbon-Deleting_Unwanted_Styles [Удаление нежелательных стилей].