ここから本文です

NO. 請求書名 回数 月額 1 2 3 4 5 6 7 8 9 1 xxx会社 5 500 2 yyy会社 8 1000 ...

hir********さん

2019/9/122:36:02

NO. 請求書名 回数 月額 1 2 3 4 5 6 7 8 9
1 xxx会社 5 500
2 yyy会社 8 1000
3 aaa会社 3 500


上記の表で月額を回数分右セルにコピーをし、下記のように作成したい

のですが、どのようにマクロをかけばよいのでしょうか。
(NO.は400以上あるため、ブランクになるまで繰り返すというような
構文にしたいです。)

NO. 請求書名 回数 月額 1 2 3 4 5 6 7 8 9
1 xxx会社 5 500 500 500 500 500 500
2 yyy会社 8 1000 1000 1000 1000 1000 1000 1000 1000 1000
3 aaa会社 3 500 500 500 500

閲覧数:
7
回答数:
1

違反報告

ベストアンサーに選ばれた回答

hot********さん

2019/9/123:23:31

こんなでしょうか

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

質問した人からのコメント

2019/9/1 23:49:38

早々にご回答頂き、有難う御座います。
数百行あるコピペが一瞬ででき、大変助かりました。

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる