今回は、その対処法を紹介したいと思います。

グループの階層(レベル)を確認し、ungroupメソッドが失敗しました。を防ぐ方法

ungroupメソッドが失敗しました。

となるのは、

グループ化されていない行や列をグループ解除しようとした場合

となります。ですので、

グループ解除をするためには、グループ化されているか先に判断する必要があります。

そんな時に使えるのが、

行.outlinelevel

となります。

簡単にプログラムを作って、
A列に、レベルを表示させるプログラムを作成してみました。

Sub GROUP確認()

    For I = 1 To 10
        A = Cells(I, 20).EntireRow.OutlineLevel
        Cells(I, 1) = "行" & I & "のレベルは" & A
    Next

End Sub

結果は下記の通り、きちんとレベルが表示されていることがわかります。

ちなみに、グループ化されていない行がレベル１となりますので、
ungroupのエラーを防ぐためには、IF文を使って、

IF 行.outlinelevel>=2 THEN
　行.ungroup
END IF

とする必要があります。

また、

　行.clearoutline

を使うことで、グループ化をすべて解除することが可能ですので、
合わせて知っておくといいかと思います。

Excelの行列の非表示でグループ化の＋－が消える。。プラスの位置を上下反転させる方法！

Excelをうまく使いこなして、見やすい表を作成するためには

・行/列のグループ化が必須になってくると思います。

例えば、グループごとに集計を行った結果をまとめるときに、
下記のように、グループ化をしておくことで、
集計結果だけを表示し、非常に見やすい資料にすることができます。

↓

しかしここで、問題になってくるのが、
表の整理のため、10行目、17行目を狭くしたり、非表示にすることで、
下記のようにグループ化の「ー」表示が消えてしまうことです。

今回はそんなときにどのように対処したらいいか説明していきたいと思います。

データ→アウトライン→詳細のデータ下のチェックを消すだけ。

上記の問題を解決するには、＋－の位置を、
グループ集計の横に持ってくることができれば解決します。

このような設定にできることをまず知らないのであきらめる人が多いと思いますが、
実は非常に簡単にできるのです。。

やり方は、リボンのデータのアウトラインの右下の設定ボタンを押し

集計行または列の位置の「詳細データの下」のチェックを外すだけです。

すると先ほどの図のように、集計行が詳細データの上に表示されるようになり、
「ー」が隠れることがなくなります。

VBAでの書き方

VBAでの記載の仕方は下記の通りとなります。

Sub グループ化()
ActiveSheet.Outline.SummaryRow = xlBelow    '// 行のグループ化の+/-を下に付ける（標準）
ActiveSheet.Outline.SummaryRow = xlAbove    '// 行のグループ化の+/-を上に付ける
ActiveSheet.Outline.SummaryColumn = xlRight '// 列のグループ化の+/-を右に付ける（標準）
ActiveSheet.Outline.SummaryColumn = xlLeft  '// 列のグループ化の+/-を左に付ける
End Sub

まとめ

かれこれExcelを仕事で10年使っていましたが、
こんなことができるなんて思いもよりませんでした。。
早く知りたかったです。。

ぜひ皆さんもお使いください！！！

行や列のグループ化　マクロ

行、列の範囲を指定して、グループ化するマクロです。階層も指定できます。

Public Sub R_GROUP(R1, R2, Optional N = 1)
Public Sub C_GROUP(C1, C2, Optional N = 1)

・ R1, R2, にグループ化したい列番号の範囲を入力してください。
・ C1, C2, にグループ化したい列番号の範囲を入力してください。

・ Optional N = 1　にグループの階層を入力してください。デフォルトは１です。
グループ化する前に.ClearOutline、その後、N回グループ化をします。(エラー回避のため、6以上の場合は6にしています)

Public Sub C_GROUP(C1, C2, Optional N = 1)

    Range(Cells(1, C1), Cells(1, C2)).EntireColumn.ClearOutline

    If N > 6 Then N = 6

    For i = 1 To N

        Range(Cells(1, C1), Cells(1, C2)).EntireColumn.GROUP

    Next

End Sub

Public Sub R_GROUP(R1, R2, Optional N = 1)

    Range(Cells(R1, 1), Cells(R2, 1)).EntireColumn.ClearOutline

    For i = 1 To N

        Range(Cells(R1, 1), Cells(R2, 1)).EntireColumn.GROUP

    Next

End Sub