[[20170309151137]]　『集計機能を利用している場合のみ設定を解除したい』（tomo）　ページの最後に飛ぶ

『集計機能を利用している場合のみ設定を解除したい』（tomo）

集計設定(Subtotal)を利用して集計表を作成するマクロで、
以下条件で任意のシートのデータをクリアしたいのですが、
実現可能でしょうか。

＜条件1＞
任意のシートにて集計機能が使用されている場合に
集計機能を解除し、シート内のデータも全削除とする

＜条件2＞
任意のシヘトにて、集計機能が使用されていない場合に
シート内のデータを全削除とする

当初は、集計機能が設定しているかどうかは確認せず、
集計機能解除→データの全削除としていたのですが、
集計機能が設定されていない場合には、エラーになってしまいます。

良い解決方法がありましたら、ご教示ください。
よろしくお願いします。

＜使用 Excel：Excel2013、使用 OS：Windows7 ＞

＞集計機能が設定されていない場合には、エラーになってしまいます。
2010ではエラーにならないようですが、
どのようなコードで試されました？

こちらは、こんな感じです。

Sub Macro2()

    With ActiveSheet.UsedRange
        .RemoveSubtotal
        .Offset(1).ClearContents
    End With
End Sub
（まっつわん） 2017/03/09(木) 15:39

回答、ありがとうございました。

すみません、エラーが発生する場合は、任意のシートに
全くデータがない場合か、まばらにデータが残っている場合でした。
説明が足りておらず、申しわけありません。

複数人で繰り返し利用する予定のマクロなので、該当のシートの
データをクリアしてから実行する人がいることも考えれるため、
回避する方法がありましたら教えてください。

なお、コードは以下の内容としています
任意シートのデータのクリアはこの後、別途他のシートと併せて
行っています。

Sheets("シート名").Select
Range("A1").Select
Selection.RemoveSubtotal

（tomo） 2017/03/09(木) 16:19

エラーが起きても無視して次へいきます。

Sub Macro3()

    With ActiveSheet.UsedRange
        On Error Resume Next
        .RemoveSubtotal
        On Error GoTo 0
        .Delete
    End With
End Sub

でも、シートのセルを削除して使いまわすくらいなら、
そのブックをまるごと捨てて新しい
テンプレートファイルを開いた方がいいような気がします。
（まっつわん） 2017/03/09(木) 17:08

回答ありがとうございました

今回は、あまり時間がないので、エラーを無視する方法で対応します。
落ち着いたら、最後に教えていただいた方法で対応できるように修正してみます。

まっつわん様　今回は、大変助かりました。ありがとうございます。
（tomo） 2017/03/10(金) 09:01

コメント返信：