Excelのデータ集計方法について

質問

ExcelでA列に30種類の中からランダムに商品名が（重複しています）B列～D列にその商品の売上日、伝票番号、請求額が入力されています。
やりたいことは商品名ごとに売上日、伝票番号、請求額を別の請求書フォーマットに内訳として転記したいのです。
（別シートに作成してあります）
現在はソートを利用して、あとは手作業でコピーして貼り付けをしているのですがそれを自動でできる方法はあるでしょうか。
ソートする商品名は月毎でばらばらなので簡単なマクロだとどうしてもソートする部分が手動になってしまって困っています。
ピポットだと集計してしまうので内訳すべての転記ができません。
本来ならAccess等を使用するべきだとは思うのですがExcelでなんとかできないものかと皆様のお知恵を貸して下さい。
よろしくお願いします。

回答No.4

nishi6

不特定のデータ数ですから、関数は使う気になりませんね。下記VBAを書いてみました。

●データが入力されているシート="Sheet1"。請求書フォーマットのあるシート="Sheet2" とします。

　Sheet1のE列に連番を振ります。ソートしたデータを元に戻すためです。
　Sheet1のデータを商品名、売上日、伝票番号の優先キー順で並べます。(商品名は最優先です。後は自由)

　Sheet2がどのような形か分かりませんので勝手に想定しました。

　　商品名
　　AAA04
　　　　　　　売上日　　　伝票番号　　　請求額
　　　　　　2001/7/ 9　　　1021　　　　　61,600
　　　　　　2001/7/12　　　1020　　　　　46,700
　　　　　　2001/7/14　　　1027　　　　　12,200 　のように想定し、

　　　商品名の下のセルに範囲名:trsSyohin(上図のAAA04の場所)
　　　売上日の下のセルに範囲名:trsData(上図の2001/7/ 9の場所)
　　　Sheet1のA1(商品名という表題が入っている？）に範囲名:DataTop を付けます。

●Sheet2にコントロールツールボックスからボタンを貼り付けます。
　(表示→ツールバー→Visual Basic)

●ツール→マクロ→Visual Basic Editor でVBE画面に移り、Sheet2のコードウインドウに貼り付けます。
Private Sub CommandButton1_Click()
DataTensou
End Sub

●次は標準モジュールを挿入し(挿入→標準モジュール)貼り付け
Public dataNum As Long 'データ個数
Public rgDt As Range 'データ基準セル
Public rgTsyo, rgTdat As Range '商品転記セル、データ転記基準セル
Public cot As Long 'カウンタ
Public newSyohin As String '読み込んだ商品名
Public TensoNum As Long '転記した個数
Public endFlg As Boolean 'データ終了フラグ

Public Sub DataTensou()
Set rgDt = Range("DataTop") 'データ基準セル
Set rgTsyo = Range("trsSyohin") '商品転記セル
Set rgTdat = Range("trsData") 'データ転記基準セル
'
With rgTdat '書き込み済みデータを消去
If TensoNum > 0 Then
Range(.Cells(1, 1), .Cells(TensoNum, 3)).ClearContents
End If
End With
'
dataNum = Worksheets("Sheet1").UsedRange.Rows.Count - 1
With rgDt
TensoNum = 0 '転記した個数をクリア
newSyohin = .Offset(cot + 1, 0) '今度転記する商品名
rgTsyo.Offset(0, 0) = newSyohin
While newSyohin = .Offset(cot + 1, 0) And cot <= dataNum
rgTdat.Offset(TensoNum, 0) = .Offset(cot + 1, 1)
rgTdat.Offset(TensoNum, 1) = .Offset(cot + 1, 2)
rgTdat.Offset(TensoNum, 2) = .Offset(cot + 1, 3)
TensoNum = TensoNum + 1
cot = cot + 1
Wend
End With
'
If cot > dataNum Then
MsgBox "終了しました"
cot = 0: TensoNum = 0: endFlg = True
Else
'どちらかの「'」をはずすとプレビューか印刷を実行
'ActiveSheet.PrintPreview 'プレビュー(印刷範囲を設定すること)
'ActiveSheet.PrintOut '印刷(印刷範囲を設定すること)
End If
End Sub

Public Sub PrintALL() '全印刷
While endFlg = False
DataTensou
Wend
endFlg = False
End Sub

ボタンを押す毎に商品名単位で転記します。終われば、最初から繰り返せます。
自動印刷やボタン１発で全印刷とか・・・いろいろできそうです。(参考に書きました)
いつも長くなってしまう・・・デハ。

お礼

補足を書いた後、じっくりコードを眺めていましたら、
初めにデータをソート（並び替え）しておけばいいんですよね？
と、気が付きました。
nishi6さんも「ソートしたデータを元に戻すためです。」と
書かれているのに、慌てていて申し訳ございませんでした。
自分でもがんばって少しやってみます。

もし、意図されている事が違っていたり、いい案があるようでしたら
また、アドバイス下さい。よろしくお願い致します。

補足

nishi6さんお忙しい中回答ありがとうございます。
つたない説明文章からよくぞここまで意図をくんでいただけて
本当にありがとうございました。まさしく、自動ですべての商品に関しての
ソート、転記、印刷をしたかったのでした。（参考のコードが役にたちます。）
しかし・・。
元のデータが入力されているSheet1は

　商品名　 売上日　　伝票番号　請求金額　連番
　　AAA　　2001/6/1　　0001　　　1000　　　　1
　　BBB　　2001/6/2　　0002　　　2000　　　　2
　　CCC　　2001/6/3　　0003　　　3000　　　　3
　　AAA　　2001/6/4　　0004　　　1000　　　　4
　　AAA　　2001/6/5　　0005　　　1000　　　　5
　　CCC　　2001/6/6　　0006　　　3000　　　　6

にしましたが、上手くソートができなくて（？）Sheet2には

商品名
　　AAA
　　　　　　　売上日　　　伝票番号　　　請求額
　　　　　　2001/6/ 1　　　0001　　　　　1000

としかでてきません。
連続している場合には

商品名
　　AAA
　　　　　　　売上日　　　伝票番号　　　請求額
　　　　　　2001/6/ 4　　　0004　　　　　1000
　　　　　　2001/6/ 5　　　0005　　　　　1000

とされるのですが何か原因はあるのでしょうか。
VBAに関しては初心者もいいところなので、記述を見てもなんとなくしかわかりません。
それとも、作成の仕方が悪いのでしょうか。
丸投げ状態で大変申し訳ございませんがもしよろしければアドバイスをよろしくお願い致します。