Excel2003の集計および印刷について

質問

いつもお世話になっております。
新年早々ですが、今回はExcelについて質問させてもらいます。

現在、とあるデータの集計を行い、印刷を行う方法を考えていますが、あまり詳しくないので困っています。
何かいい方法があればと思い投稿しました。

まずExcelファイルに「入力用シート」と「出力用シート」の二つのシートがあります。
「入力用シート」には、
C1セル、D1セル、E1セル、F1セル
C2セル、E2セル、F2セル
に表題や番号などを入力します。

また、下記のようにA1セルとB1セルから下へずっとデータを入力します。データ量は多いときは１０００行ぐらいです。
例）
1000　　　5
1200　　　2
900　　　 10
800　　　 2
1000　　　1
2400　　　3
あとフォームのボタンを作りこれを押すと、「出力用シート」にC1,D1,…F2までのセルをそのままコピーし、A1、B1から下へ入力されているデータのみを集計し表示を行いたいと思ってます。
集計の条件はA列ごとに集計し降順で表示です。

結果として「出力用シート」には
以下のように表示したいと思ってます。

あいうえお　かきくけこ　111111　222222
さしすせそ　　　　　　　333333 444444

2400　　　3
1200　　　2
1000　　　6
900　　　10
800　　　 2

ですが、A列とB列に入力するデータが多くなった際、印刷すると右半分が白紙の状態で、できれば右半分にもと思ってます。つまり１枚に２ページ分印刷と言うことです。
データは１枚に３０行ぐらいで左半分と右半分で６０件ぐらい表示。
（文字を大きく表示させるため）
それ以上になると２枚目に１枚目と同じように１行目２行目は１枚目と同じで印刷できればと。

例）
-----１枚目-----

あいうえお　かきくけこ　111111　222222
さしすせそ　　　　　　　333333 444444

2400　　　　3　　　　440　　　　2 　　　　
1200　　　　2　　　　430　　　　22
1000　　　　6　　　　415　　　　9
900　　　　10　　　　409　　　　2
800　　　　 2　　　　399　　　　8
500　　　　 1　　　　395　　　　5
450　　　　 3　　　　393　　　　2

-----２枚目-----

あいうえお　かきくけこ　111111　222222
さしすせそ　　　　　　　333333 444444

391　　　　1　　　　
320　　　　2
311　　　　22

説明が長くなりましたが、何卒よろしくお願いします。

回答No.3

fumufumu_2006 · ベストアンサー

修正点は2点です。
並べ替え後の、

ws.Columns("A:B").Sort Key1:=ws.Range("A1"), Order1:=xlDescending 'sort
ds.Cells.Clear '印刷シートクリア

の間に、

'集計
ws.Cells(1, 3).Formula = "=IF(COUNTIF($A$1:A1,A1)=1,ROW(),"""")"
ws.Cells(1, 3).Copy Destination:=ws.Range(ws.Cells(2, 3), ws.Cells(rowCount, 3))
ws.Cells(1, 4).Formula = "=IF(ROW(D1)>COUNT(C:C),"""",INDEX(A:A,SMALL(C:C,ROW(A1))))"
ws.Cells(1, 5).Formula = "=IF(D1="""","""",SUMIF(A:A,D1,B:B))"
rowCount = WorksheetFunction.Count(ws.Columns(3))
ws.Range(ws.Cells(1, 3), ws.Cells(1, 5)).Copy Destination:=ws.Range(ws.Cells(2, 3), ws.Cells(rowCount, 5))

を入れてください。
データ部へコピーする部分の

ds.Cells(row + rowOffset, col * 2 - 1) = ws.Cells(srcRow, 1)
ds.Cells(row + rowOffset, col * 2) = ws.Cells(srcRow, 2)

を

ds.Cells(row + rowOffset, col * 2 - 1) = ws.Cells(srcRow, 4)
ds.Cells(row + rowOffset, col * 2) = ws.Cells(srcRow, 5)

に変更してください。

ワークシート(sheet2)を見てもらえればわかりますが、並べ替え後のデータを集計して、その結果を印刷シートにコピーしてます。
集計は、
http://oshiete1.goo.ne.jp/qa3380455.html
の、ANo.1さんを参考にさせていただきました。（と言うかそのままですが）

回答No.2

imogasi

質問がごたごたしていてわかりにくい。
課題は２つあるようで
（１）集計
（２）印刷
ーー
（２）は１列的（A,B列）なデータを、２列的に印刷したいということのようです。印刷で使う紙を節約したり、１ページに出るデータの一覧データ数を少しでも多くできるように、そうしたいのはわかります。
ーー
（１）の集計はどの項目をどういうまとめで集計するのか。
＞集計の条件はA列ごとに集計し
とは、１０００行なりのデータのB列の１－１０００行の合計を結果１つを最終に出せばよいのか？。
質問の意味を捉えられず、（１）集計については以下説明で回答できてない。
ーーー
私はこういう課題はVBAでやるべきというのが持論だが、質問者はVBAの経験が無いのではないかと思う。
それで数式・関数で下記を工夫した。モデル的にやってみて私の方法の主旨をじっくりフォローして理解してください。
ーー
具体的に（２）印刷は、
別シートに入力データをシートコピーし
別シートA,B列を、A列で降順にソートする。
ー
モデル的データとして
A1:B200に
1 a1
2 a2
3 a3
4 a4
5 a5
・・・
195 a195
196 a196
197 a197
198 a198
199 a199
200 a200
を作る。データは何でも良く、上記データの値に付いて意味は無い。
ーー
別シート(第3のシート、印刷シート）の
（どこでも良いが）G1セルにまず１と入れる。
いわばページ番号数を表している数といえるものである。
１ページ行数、はテスト例なので少なめに３０行と設定した。
ーー
A1の式　=INDIRECT("Sheet1!A"&($G$1-1)*30+ROW())
B1の式　=INDIRECT("Sheet1!B"&($G$1-1)*30+ROW())
D1の式　=INDIRECT("Sheet1!A"&($G$1-1)*30+ROW()+30)
E1の式　=INDIRECT("Sheet1!B"&($G$1-1)*30+ROW()+30)
を入れる。
式中の３０は１ページ３０行を印刷する設定だからで、６０行なら６０に変える。
第30行まで、各列の第１行の式を複写すると
1 a1 31 a31
2 a2 32 a32
3 a3 33 a33
・・・・（略）
27 a27 57 a57
28 a28 58 a58
29 a29 59 a59
30 a30 60 a60
となる。これを手動（またはVBAで）印刷する。
印刷後、G1を２と変えると、瞬時に
31 a31 61 a61
32 a32 62 a62
33 a33 63 a63
・・・（略）
57 a57 87 a87
58 a58 88 a88
59 a59 89 a89
60 a60 90 a90
となります。
ーー
簡単のため、ここでは２列的に構成するにとどめているが、式を少し変えて、設定列を増やすと３，４、５列的に増やせることは判りますね。
ーー
ここでこれを手動（またはVBAで）印刷する。
G1を１増やすー＞印刷の操作を、表示されるデータが最終行を越えるまで繰り返す。（１０００行なら、1000/60*2ほぼ９回）
ーー
G１セルの値を、VBAで１ずつ自動でアップして印刷（PrintOut）するのを繰り返すコードに興味があれば書きますが略。

お礼

お礼が遅くなりまして申し訳ありません。
早速のご回答ありがとうございまた。
ＶＢＡについてはまだよくわかりませんが、いつか使えるようにがんばりたいと思います。
その時はまたお世話になるかもしれませんがよろしくお願いします。

回答No.1

fumufumu_2006

こんなのでどうでしょう？
元データを壊さないように作業シートを使います。
必要に応じてss,ds,wsのシートの指定を変えてください。
印刷シートのデータ行数をpageRowCountで調整してください。
pageColCountでページあたりの横数が変更できます。

Private Sub CommandButton1_Click()
Const pageRowCount = 50 '1ページあたりのデータ行数
Const pageColCount = 2 '1ページあたりのデータ列数

Dim ss As Worksheet '元データシート
Dim ds As Worksheet '印刷シート
Dim ws As Worksheet '作業シート
Dim rowCount As Long '元データの行数
Dim startRow As Long '印刷ページ毎の印刷する元データの最初の行
Dim srcRow As Long '印刷時の元データの行
Dim row As Integer '印刷データのデータ部の行
Dim col As Integer '印刷データのデータ部の列
Dim rowOffset As Long

Set ss = Sheets("Sheet1") '元データシートの指定
Set ds = Sheets("Sheet2") '印刷シートの指定
Set ws = Sheets("Sheet3") '作業シートの指定
rowCount = ss.Cells(ss.Rows.Count, 1).End(xlUp).row '元データの行数取得

ws.Cells.Clear '作業シートクリア
ss.Columns("A:B").Copy Destination:=ws.Range("A1") 'データを作業シートへ
ws.Columns("A:B").Sort Key1:=ws.Range("A1"), Order1:=xlDescending 'sort
ds.Cells.Clear '印刷シートクリア
'印刷シート作成
For startRow = 1 To rowCount Step pageRowCount * pageColCount

'ヘッダー部
ss.Range("C1:F2").Copy Destination:=ds.Cells(rowOffset + 1, 1) 'ヘッダーデータ
'他にも見出しなんかがある場合
ds.Cells(rowOffset + 4, 1) = "番号"
ds.Cells(rowOffset + 4, 2) = "データ"
ds.Cells(rowOffset + 4, 3) = "番号"
ds.Cells(rowOffset + 4, 4) = "データ"
rowOffset = rowOffset + 4 'ヘッダー部の行数だけプラス

'データ部
srcRow = startRow
Do
For col = 1 To pageColCount
For row = 1 To pageRowCount
If srcRow > rowCount Then Exit Do '元データ終わりチェック
ds.Cells(row + rowOffset, col * 2 - 1) = ws.Cells(srcRow, 1)
ds.Cells(row + rowOffset, col * 2) = ws.Cells(srcRow, 2)
srcRow = srcRow + 1
Next
Next
Loop Until True
rowOffset = rowOffset + pageRowCount

'フッター部
'必要があれば
ds.Cells(rowOffset + 1, 1) = "何かフッター" 'いらなければ削除
rowOffset = rowOffset + 1 'フッター部の行数だけプラス（無ければ+0）

Next
End Sub

お礼

お礼が遅くなりまして申し訳ありません。

早速のご回答ありがとうございまた。
さっそく試してみましたが、希望通りに表示はされましたがよく見ると集計がされていませんでした。
例えば、
920　　5
920　　2
1000　 6

上記の３行だけのデータの際は、
1000　　6
920　　7
と表示されるようにしたいのですが、もう一度お願いできないでしょうか？