Excelの書式を全て削除するマクロ
Excelで書式が増えすぎた場合は手で削除するのはムリ。マクロで一気に消しましょう。
Sub Excelの書式を全て削除() Dim myStyle As style On Error Resume Next For Each myStyle In ActiveWorkbook.Styles If Not myStyle.BuiltIn Then myStyle.Delete End If Next End Sub
Excelで書式が増えすぎた場合は手で削除するのはムリ。マクロで一気に消しましょう。
Sub Excelの書式を全て削除() Dim myStyle As style On Error Resume Next For Each myStyle In ActiveWorkbook.Styles If Not myStyle.BuiltIn Then myStyle.Delete End If Next End Sub