- 10 名前：デフォルトの名無しさん mailto:sage [2022/05/02(月) 23:18:57.97 ID: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
繰り返し完了
