2024年06月14日

Excelで設定した書式を一括で削除する方法！

Excelで設定した書式を一括で削除する方法！

Microsoft Excelで、設定した書式を一括で削除したいと思ったことはありませんか？書式設定を行うごとにユーザー設定のスタイル扱いで保存され、蓄積されてしまいます。この記事では、Excelで設定した書式を一括で削除する方法をご紹介していきます。


目次[非表示]

  1. Excelで設定した書式を一括で削除する方法

Microsoft Excelで、設定した書式を一括で削除したいと思ったことはありませんか？新しい書式設定を行うごとにExcelがユーザー設定のスタイルとして保存してしまうため、保存されすぎて新規書式の設定ができなくなってしまうことがあります。

この場合は、ユーザー設定のスタイル（書式）の削除を行いましょう。この記事では、Excelで設定した書式を一括で削除する方法をご紹介していきます。

Excelで設定した書式を一括で削除する方法

「Visual Basic」をクリック
それでは、Excelで設定した書式を一括で削除する方法を説明していきます。ユーザー設定の書式を一括削除するには、マクロを作成しましょう。ウィンドウ上部の「開発」タブをクリックしてリボンメニューを開き、「コード」項目の「Visual Basic」をクリックしましょう。
使用中のシート名をクリックしコードウィンドウが表示されたら下記のコードを入力してからウィンドウ上部の「実行」ボタンをクリック
「Microsoft Visual Basic for Applications」ウィンドウが表示されます。ウィンドウ左側のフォルダツリーを展開して、使用中のシート名をクリックしましょう。これでコードウィンドウが表示されるので、下記のコードを入力してからウィンドウ上部の「実行」ボタンをクリックしてみましょう。「マクロ」ウィンドウが表示されたら、「実行」をクリックすることでユーザー設定の書式を一括削除することができますよ。

まずは、特に条件を設けず全削除するコードです。

Sub ユーザー設定スタイル一括削除()

  Dim oSty As Style
  Dim arySty As Variant

  For Each oSty In ActiveWorkbook.Styles
    'ビルトインスタイル（削除不可）以外を削除
    If oSty.BuiltIn = False Then
        oSty.Delete
    End If
  Next
End Sub

こちらは、条件付きで削除を行うコードです。

Sub 条件付きユーザー設定スタイル一括削除()

  Dim oSty As Style
  Dim arySty() As Variant
  Dim i As Long
  Dim flg As Boolean

  '== 残したいスタイルの名前を以下に列挙してください =====
  arySty = Array("スタイルA", "スタイルB", "スタイルC")

  For Each oSty In ActiveWorkbook.Styles
    'ビルトインスタイル（削除不可）以外を削除
    If oSty.BuiltIn = False Then
      flg = True
      For i = 0 To ubount(arySty)
        If oSty.NameLocal = arySty(i) Then
          flg = False
          Exit For
        End If
      Next i
      If flg = True Then oSty.Delete
    End If
  Next
End Sub

関連記事

キーワード一覧

「Excel」トップページへ

Excel記事ランキング

Excel新着記事


© 2025 Aprico