覚書。 1.Alt+F11にでVisualBasicEditorを起動 2.以下のコードを追加 Sub DeleteStyle() Dim s On Error Resume Next For Each s In ActiveWorkbook.Styles If Not s.BuiltIn Then s.Delete End If Next End Sub 3.Alt+F8で「DeleteStyle」を実行