[[20211005163131]]　『値ある複数行は増やして内容をコピペ。値は順番に』（博生）　ページの最後に飛ぶ

『値ある複数行は増やして内容をコピペ。値は順番にコピペ』（博生）

	10月1日	10月2日	10月3日	10月4日
みかん	10		10	
ぶどう	20	20		20
すいか			30	
メロン	50	50	50	50
↓				
↓				
↓				
	10月1日	10月2日	10月3日	10月4日
みかん	10			
みかん			10	
ぶどう	20			
ぶどう		20		
ぶどう				20
すいか			30	
メロン	50			
メロン		50		
メロン			50	
メロン				50

こんな風にするにはどうすればよろしいでしょうか？
ご教授よろしくお願い致します

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

VBA お願いします
（博生） 2021/10/05(火) 16:58

こんな風ですか？

 Sub Test()
    t = Cells(Rows.Count, "A").End(xlUp).Row
    r = t + 1
    Range(Cells(r, "A"), Cells(r + 2, "A")).Value = "↓"
    r = r + 3
    Range(Cells(r, "A"), Cells(r, "E")).Value = Range("A1:E1").Value
    r = r + 1
    For i = 2 To t
        For j = 1 To WorksheetFunction.CountA(Range(Cells(i, "B"), Cells(i, "E")))
            Cells(r, "A") = Cells(i, "A")
            n = 0
            For c = 2 To 5
                If Cells(i, c) <> "" Then n = n + 1
                If n = j Then Cells(r, c) = Cells(i, c)
            Next
            r = r + 1
        Next
    Next
 End Sub

（きまぐれ） 2021/10/05(火) 17:14

大変ありがとうございました。

（博生） 2021/10/06(水) 16:34

大変ありがとうございました。

こういう場合はどうしたらよいのでしょうか？
VBAご教授願います。
お手数お掛け致します。
よろしくお願い致します。

　　　A列　 B列　 C列　 D列　 E列　 F列　 G列
1行　品名　ＣＤ　記号　10/1　10/2　10/3　10/4
2行　みかん 01 A 10 10
3行　ぶどう 02 B 20 20 20
4行　すいか 03 S 30
5行　メロン 04 M 50 50 50 50

↓

 　　　A列　 B列　 C列　 D列　 E列　 F列　 G列
 1行　品名　ＣＤ　記号　10/1　10/2　10/3　10/4
 2行　みかん  01     A    10               
 3行　みかん  01     A                10 
 4行　ぶどう  02     B    20
 5行　ぶどう  02     B          20
 6行　ぶどう  02     B                      20
 7行　すいか  03     S                30          
 8行　メロン  04     M    50 
 9行　メロン  04     M          50
10行　メロン  04     M                50
11行　メロン  04     M                      50

（博生） 2021/10/06(水) 16:55

列増えただけだよね。
コード読んですらいないのバレバレです。
（あほ） 2021/10/06(水) 17:01

教えていたけませんでしょうか
どうかお願いします。
（博生） 2021/10/06(水) 19:38

コメント返信：

[ 一覧(最新更新順) ]

[[20211005163131]] 『値ある複数行は増やして内容をコピペ。値は順番に』（博生） ページの最後に飛ぶ

[[20211005163131]]　『値ある複数行は増やして内容をコピペ。値は順番に』（博生）　ページの最後に飛ぶ