Excel VBA 質問スレッド No.47 (未解決)

VBAで積上げ表を作成する方法。

投稿者 : SUZUKI     投稿日時 : 2018/06/07(Thu) 14:30:42     OS : Windows 10     EXCEL : Excel 2010
現在、手動で積上げ表を作成しています。
VBAで自動化することは可能か教えてください。

シート1のデータ
A列 B列 C列 D列 ・・・
1 契約№ 名前 担当 契約日
2 A01 佐藤 AA 2018/04/12
3 A21 鈴木 AA 2018/04/05
4 A12 高橋 CC 2018/06/01
5 A30 斉藤 BB 2018/07/20
6 A10 後藤 CC 2018/06/30
7 A00 高野 AA 2018/05/15



上記のデータを、シート2にあらかじめ用意されている表に積上げたいです。

シート2のA1:B6にベースがあり、それをコピーして積上げていってます。

A列 B列
1 契 名前
2 約 担当
3 № 契約日

契約№は縦書きでセルの結合をしています。
B列の名前・担当・契約日 はVlookup関数が入っています。
A1:B6をシート1の1行とVlookupで参照させて積上げ表を作成します。

表は、D列から右側に土台を作っています。

C列 D列 E列 F列 G列
1 2│ A 佐藤 │
2 件│ 0 AA │
3 目│ 1 4/12│
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
4 1│ A 鈴木 │ A 高野 │
5 件│ 2 AA │ 0 AA │
6 目│ 1 04/5│ 0 05/15│
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
7 月│2018年04月│2018年05月│ ・・・


見やすいように改行を入れていますが実際はくっついています。
積上げる順番は順不同です。
2018年4月の縦軸に4月に契約した物件が積み重なれば大丈夫です。
契約日が2018/04に該当するデータ個数分シート2 A1:B3 をコピーして
各月の表に個数分下からペーストする。

契約№部分に各月入力する。

ということをやりたいです。

実際には、縦に30個積み重なるようになっています。
※各月30個超えることはありません。

初心者ですが、簡単なVBAの編集は行うことができます。
あまり複雑なVBAになるようならあきらめようと思います。

是非よろしくお願いいたします。

スポンサード リンク
 
 
当掲示板について
返信入力フォーム
お 名 前  :
内  容   :
ステータス  : この質問を解決済みにする

認証コード  :
        キャプチャ画像


( 処理日時 : 2019-07-18 02:24:52 )

Page
Top