アウトラインを削除する【ClearOutlineメソッド】【ExcelVBA】

ClearOutlineメソッド

作成したアウトライン(グループ化)を削除するにはClearOutlineメソッドを使用します。
削除範囲の指定が可能です。

構文
Object.ClearOutline

アウトラインを削除するサンプルコード

Public Sub Sample()
  'アウトラインを設定する
  Worksheets("Sheet1").Rows(3).OutlineLevel = 2
  Worksheets("Sheet1").Columns(3).OutlineLevel = 2
  
  '■設定したアウトラインを削除する
  Worksheets("Sheet1").Range("A1:A3").ClearOutline
  
  '■シート内の全てのアウトラインを削除する
  '以下どれでもOK
  Worksheets("Sheet1").Cells.ClearOutline
  Worksheets("Sheet1").Rows.ClearOutline
  Worksheets("Sheet1").Columns.ClearOutline
  
  '■全てのシートからアウトラインを削除する
  Dim ws As Worksheet
  '各シートのアウトライン削除を繰り返す
  For Each ws In Sheets
    ws.Cells.ClearOutline
  Next
  
End Sub

注意点

• Subtotalメソッドでグループ化&集計をした後にClearOutlineメソッドを使うと、
  グループ化のみ解除されます。

関連記事

• セル範囲を集計する【Subtotalメソッド】
• アウトラインの折り畳みと展開を行う【ShowLevelsメソッド】