Excelでセルのスタイルを削除するマクロ

Excelでセルのスタイルを削除するマクロ

マクロをアドインとして登録する手順

Excelを便利に！アドインの作成

マクロ

デフォルト以外のセルのスタイルを削除する

Sub セルのスタイル削除()
    Dim style As Style
    Dim defaultStyleName As String
    defaultStyleName = "標準" ' 日本語版のExcelでは「標準」、英語版では「Normal」

    For Each style In ActiveWorkbook.Styles
        If style.Name <> defaultStyleName Then
            On Error Resume Next
            style.Delete
            On Error GoTo 0
        End If
    Next style

    MsgBox "カスタムセルスタイルが削除されました。", vbInformation, "完了"
End Sub