質問: NO. 請求書名 回数 月額 1 2 3 4 5 6 7 8 9 1 xxx会社 5 500 2 yyy会社 8 1000 3 aaa会社 3 500 上記の表で月額を回数分右セルにコピーをし、下記のように作成したい
回答: こんなでしょうか Sub sample() Dim lastRow As Long Dim r As Long lastRow = Range("A" & Rows.Count).End(xlUp).Row 'A列最終行 For r = 2 To lastRow '注目行を2行目から最終行まで Range("E" & r).Resize(1, Range("C" & r).Value).Value = Range("D" & r).Value '注目行のE列から横にC列の値だけD列の値を繰り返す Next End Sub