22/05/02 23:18:57.97 X95f3WhM0.net
よろしくお願いします。以下の日本語で書いた部分に相当するような
繰り返し文ってありますでしょうか。
イメージしているのはwhile read line do done < test.txt
みたいなものです。
テキストファイルの変わりに「とある列の値が尽きるまで(空欄が見つかるまで)」、
繰り返し文内の処理を繰り返すような文です。
Range("B1").Select
繰り返し A列の値 = 空欄のセルが見つかるまで
ActiveCell.Offset(0, -1).Range("A1").Select
Selection.Copy
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1").Select
繰り返し完了