|    | 
     ▼よろずや さん: 
>>という流れで考えましたが、上手くできませんでした。 
>それを提示すると回答が付くと思いますよ。 
 
 
回答ありがとうございます! 
 
---------------------------------- 
Sub test001() 
 
Dim i As Long 
i = 1 
Do While Cells(i, 1) = "" 
Cells(i, 1) = ※1111、2222、3333のシートいずれかのA1セル(データが入っているもの) 
i = i + 1 
Loop 
End Sub 
---------------------------------- 
 
超初心者のため、上記形でどうにかならないかと考えましたが、 
お恥ずかしいことに、以下の点でつまづいています・・ 
 
1.上記、1111、2222、3333のシートの中で 
 データが入っているシートのA1セルを指定する方法 
 
2.1111、2222、3333のすべてのシートでA1セルが空欄だった場合は 
 どうしたらよいのか 
 
3.フォーマットのA列の最下行まで来たら、B列の1列目から同じ処理を繰り返す方法。 
 
4.フォーマット内が一部セル結合されているため、上記の方法で上手くコピーできるのか? 
 
 
そもそも上記の処理では効率が悪いもしくは難しいのでしょうか・・? 
他によい方法があれば教えていただきたいです。 
どうぞよろしくお願いいたします。 
 
 | 
     
    
   |