EXCEL VBA について教えてください。

質問

EXCEL VBA　について教えてください。

先ほど質問した内容ですが、補足ができなかったので、再度質問しています。

条件を満たす行をコピー（挿入）さらに（数量）を分割する場合

下記のデータで

, (品名 ) , （数量） , （マスタ） , （A/B）
, A , B , C , D
1 , 商品1 , 1000 , 2000 , 0.5
2 , 商品2 , 3000 , 1000 , 3
3 , 商品3 , 3000 , 2000 , 1.5
4 , , , ,
5 , , , ,
6 , , , ,

このように（数量）＞（マスタ）の場合に（数量）/（マスタ）分を行コピー（挿入）して

, (品名 ) , （数量） , （マスタ） , （B/C）
, A , B , C , D
1 , 商品1 , 1000 , 2000 , 0.5
2 , 商品2 , 1000 , 1000 , 1.0
3 , 商品2 , 1000 , 1000 , 1.0
4 , 商品2 , 1000 , 1000 , 1.0
5 , 商品3 , 2000 , 2000 , 1
6 , 商品3 , 1000 , 2000 , 0.5

さらにＢ列の（数量）も（マスタ）以下になるように分割する。

単に行のコピーだけなら自分でもできるのですが。。。これはさっぱりです。

どうか教えてください。

また、データの位置が変わった場合、どこを修正すればよいでしょうか？

例）
品名：Ｐ列
数量：Ｒ列
マスタ：ＡＲ列

よろしくお願いします。

回答No.1

keithin · ベストアンサー

＞A,B,C,D
＞1,商品1,1000,2000,0.5
＞2,商品2,3000,1000,3
＞3,商品3,3000,2000,1.5

これがホントは

　…P　　　Q　R　　　…AR
１　商品　…　数量　　マスタ　
２　商品１　　1000　　2000
３　商品２　　3000　　1000
４　商品３　　3000　　2000

とかだったという事でしょうか。（それは「補足」じゃなく嘘情報を正しただけに見えます。それなら手抜きでABCD列の説明をコピーするんじゃなく，実はこうでしたと最初から書き直すべきじゃないでしょうか）

OFFSETの位置を丁寧に数えて合わせていけばそのまま出来ますが，それすらめんどくさいなら次のようでも良いです。

Sub macro1()
　Dim h As Range
　Set h = Range("R2")
　Do Until h = ""
　　If h > cells(h.row, "AR") Then
　　　h.EntireRow.Copy　　　　　　　　　　　
　　　h.Offset(1).entirerow.Insert　　　　　　　　　
　　　h = cells(h.row, "AR")　　　
　　　h.Offset(1) = h.Offset(1) - h　
　　End If
　　Set h = h.Offset(1)
　Loop
　Application.CutCopyMode = False
End Sub

＃それと。
ご相談を投稿し直したのでしたら，前のご質問投稿は解決して閉じる操作を行い，マルチポストを解消しておいてください。

回答No.2

layy

例でいうＥ列の右も活用して、
「2,商品2,3000,1000,3」
を
「,商品2,3000,1000,3　2,商品2,1000,1000,1.0　商品2,1000,1000,1.0　商品2,1000,1000,1.0」
にさせることをまず考えてみたらどうですか？。
商品３との間に挿入させようとするからややこしい。
２段階に分けて、商品３の後に追加しやすい形をとって、あとで並べ替え。

－－－－－－－－－－－－－－－
補足）
質問の提供データもサンプルレベルと思うので、
ここに限らず、
回答コード例なんかはそっくりそのまま必要としているシステムに使えるかどうかは
なんとも言えません。
質問者にて組み込み導入のための修正は最低限必要と思います。
列が変わっても大丈夫か、くらいは質問者にて理解の上確認してもらえると助かります。
何やっているかが分かればどこ直すかは見えてくるものですが・・・。
それも分からず使うのは保守できなくなります。