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

質問

• Excelファイルの集計および印刷方法について、詳しく知りたいです。入力用シートと出力用シートがあり、特定の条件でデータを集計し、表示したいと思っています。データ量が増えた場合にも右半分にデータを表示して印刷したいです。
• 【Excel2003の集計および印刷方法について】Excelファイルには入力用シートと出力用シートがあります。データを特定の条件で集計し表示する方法を知りたいです。また、データ量が増えた場合にも右半分に表示して印刷する方法も教えてください。
• Excel2003の集計および印刷方法を教えてください。入力用シートと出力用シートがあり、特定の条件でデータを集計し表示したいです。データ量が増えた場合にも右半分に表示して印刷する方法も知りたいです。

回答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
と表示されるようにしたいのですが、もう一度お願いできないでしょうか？