ACCESS VBA EXCEL クエリ 転記 集計 SQL
ACCESSからEXCELへ転記する際に以下のような一定の操作を行いたいと考えています。
ACCESSの中で以下のようなクエリがあります。
名前 値段 管理番号
雑誌 500 A1
写真 700 A2
音楽 600 A3
ソフト 500 A4
写真 400 A5
雑誌 500 A6
音楽 900 A7
写真 700 A8
写真 700 A9
ソフト 500 A10
写真 700 A11
これを通常にEXCELへ貼り付ける時には以下のようなプログラムをVBAにて作成し実行してます。
With wkb.Worksheets(stSheet)
Do Until rst.EOF
'ここに新たな式を書く
.Cells(3+CntGyo,1)=rst![名前]
.Cells(3+CntGyo,2)=rst![値段]
.Cells(3+CntGyo,3)=rst![管理番号]
CntGyo=CntGyo+1
rst.MoveNext
Loop
End With
ここでEXCELに貼り付ける際に以下のようにしたいと考えております。
A列 B列 C列 D列 E列
名前 値段 個数 管理番号 その他の管理番号
雑誌 500 2 A1 A6
写真 700 3 A2 A8,A9,A11
音楽 600 1 A3
ソフト 500 2 A4 A10
写真 400 1 A5
音楽 900 1 A7
名前と値段をグループとして考え、
C列に個数を、D列に管理番号の一番小さい値を示す。
E列にグループ化された管理番号のその他の値を示す。
以上の操作をSQL構文等を使って作れるものなのでしょうか？
お礼
n-jun様回答ありがとうございます。 先ほどの図が不明瞭でしたので、取り替えました。 プログラム自体の動作を無事確認できました。 このプログラムを改良して、業務に当てたいと考えているのですが あまりにも、複雑なので、理解に時間がかかりそうです。