エクセルの集計で総計を表示しないようにするには？

質問

エクセルの集計した表を印刷しています。

「グループごとに改ページを挿入する」を選び、それぞれの合計が印刷されるのは良いのですが、総計も一緒に印刷されてしまいます。

総計の行を印刷（表示）されないようにしたいのですが・・・

エクセル2000を使用しています。

古いバージョンなので現在と変わっているかもしれませんが、よろしくお願いします。

回答No.5

tsubuyuki

横入り失礼します。

> 省力化のためマクロの自動記録機能を考えておりました。
> （マクロに詳しくないので自動記録です。）

踏まえまして

> 総計も一緒に印刷されてしまいます。
> 総計の行を印刷（表示）されないようにしたいのですが・・・

の部分を「総計行を行削除したら良い」と言う発想で記録しました。
Ａ１～Ｃ２０００にデータが、Ａ列に集計の単位（グループの基準）、
Ｃ列に集計するフィールド（合計）を持っているとして、やったことは順番に
・Ａ列で昇順ソート（念のため）
・シートの先頭（Ａ１セル）にフォーカス移動
　　（ソートした後の範囲選択状態を解除したかったので）
・集計（Ａ列基準・Ｃ列合計）
・検索機能（Ｃｔｒｌ＋Ｆ）で、“総計”と言う文字列を含むセルにフォーカス移動
・選択されたセルを含む行全体を削除
・Ａ１セルにフォーカス移動（なんとなくですが）
以上です。

Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2012/10/29 ユーザー名 : *****
'

'
Range("A1").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
SortMethod:=xlPinYin, DataOption1:=xlSortNormal

Range("A1").Select

Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(3), _
Replace:=True, PageBreaks:=True, SummaryBelowData:=True

Cells.Find(What:="総計", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, MatchByte:=False, SearchFormat:=False).Activate

Selection.EntireRow.Delete

Range("A1").Select

End Sub

処理ごとに改行を入れていますが、それ以外は基本的に録ったままです。
記録したのは２００３ですから、列数の考慮は必要でしょうが、
２０００でも同じような記録がそちらでもできるはずです。

参考までにどうぞ。

補足

アドバイスありがとうございます。

早速試したところ、「コンパイルエラー」「名前付き引数が見つかりません。」とでてきました。
DataOption1:=　のところが反転しています。

こちらで試したエクセルファイルはA1～ｃ200で下記のようなファイルです。

受注番号 商品名 数量
123 aaa 2
123 bbb 4
　-------------
156 ccc 4