人生最悪の忘れ物

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

「Excelで1つのセルを指定回数だけコピ」の質問画像

A 回答 (1件)

こんばんは!



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

一例です。

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
    • good
    • 0
この回答へのお礼

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています


おすすめ情報