Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

992 / 76735

←次へ　｜　前へ→


	【81401】表を加工して別ｼｰﾄに転記したい

ありす - 20/7/21(火) 15:50 -


	引用なし

	パスワード

はじめまして。
過去ログを検索してみたものの、似てるのはあったけど自分で応用ができず投稿させていただきます。
無知ですみません。
今、手作業と関数を使ってやっている作業を自動でできたらいいな。と思って検索していました。

やりたいことは、以下です。
・sheet1にある表をsheet2に転記したい。
・sheet1に開始日と終了日の項目があるので、それをsheet2に転記するときに品名の後ろにくっつけたい

sheet1のデータ
セルD5からセルK5までは項目名が入っていて、
セルD6からセルK○行目までデータが入っています。
A列とB列に必要情報が色々書いてあって、その中に、開始日と終了日があります。
期間→B5　B6とB7の日付から何か月分か計算してある。
開始日→B6
終了日→B7
D5日付　E5発送1　F5発送2　G5発送コード1　H発送コード2　I5品名　J5金額　K5金額2

日付は開始から終了の各月の月末日付を入力
発送1、発送2、発送コード1、発送コード2、金額、金額2はそのまま転記
品名は、品名の後ろに（'20/1月分）など日付と同じ月をカッコで追加。

Sheet1のデータ1行に対して、開始日(月)から終了日(月)までを繰り返して、
最終行まで転記したい。

sheet1のデータは、その時によって変動しデータ行数は固定ではありません。
（データの始まりは6行目で固定）
期間→B5　3か月
開始日→B6　2020/7/10
終了日→B7　2020/9/10
D　　　　　E　　　　F　　　G　　H　　I 　　　J　　K
2020/7/10　東京都　××区　001　123　りんご　100　100
2020/7/10　千葉県　△△市　002　456　みかん　200　0

sheet2に転記したとき(項目名が5行目にあるので、データ開始はD6から）
D　　　　　E　　　　F　　　G　　H　　I 　　　　　　　　　J　　K
2020/7/31　東京都　××区　001　123　りんご('20/7月分)　100　100
2020/8/31　東京都　××区　001　123　りんご('20/8月分)　100　100
2020/9/30　東京都　××区　001　123　りんご('20/9月分)　100　100
2020/7/31　千葉県　△△市　002　456　みかん('20/7月分)　200　0
2020/8/31　千葉県　△△市　002　456　みかん('20/8月分)　200　0
2020/9/30　千葉県　△△市　002　456　みかん('20/9月分)　200　0

繰り返してn回転記するというのはわかるのですが、
そこに、日付の操作と、品名の後ろにつける方法がわかりません。

よろしくおねがいします。

1 hits

▼

【81401】表を加工して別ｼｰﾄに転記したい ありす 20/7/21(火) 15:50