Excelで１つのセルを指定回数だけコピーしたい

Excelで１つのセルを指定回数だけコピーしたいと思っています
添付画像のようにA列の文字列が続くかぎり
B列の文字列（ここでは商品名１～４）を
C列の回数分コピーし、D列以降にペースト出来るマクロが作成出来ればと思っております
よろしくお願いいたします。

No.1 ベストアンサー 回答者： tom04 回答日時： 2018/11/14 23:36

こんばんは！

コピー＆ペーストではデータ量が多いと時間を要するので
値だけの操作にしてみました。

一例です。

Sub Sample1()
　Dim i As Long
　　For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
　　　Cells(i, "D").Resize(, Cells(i, "C")).Value = Cells(i, "B")
　　Next i
End Sub

こんな感じではどうでしょうか？

※　エラー処理はしていません。m(_ _)m

この回答へのお礼

tom04さん、こんなに早くしかも思っている通りに動きました
ありがとうございましたm(_ _)m

お礼日時：2018/11/14 23:45