Excel VBA 質問スレ Part15

Excel VBA 質問スレ Part15at TECH

Excel VBA 質問スレ Part15 - 暇つぶし2ch555:デフォルトの名無しさん
10/06/10 17:21:40
>>553
　　 Dim r
　　 r = 1
　　 Do Until Sheets(2).Cells(r, 3) = ""
　　　　 Sheets(1).Copy After:=Sheets(2)
　　　　 Sheets(3).Name = Sheets(2).Cells(r, 3).Text
　　　　 r = r + 1
　　 Loop

シートの１枚目が原紙、２枚目が日付の入ったシートって前提な

次ページ

続きを表示

1を表示