Excel VBA 質問スレ Part76

!extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512
↑2行に減ってるけど、同じ内容を3行に増やして貼り付けること

ExcelのVBAに関する質問スレ
コード書き込みや作成依頼もOK

次スレは>>980が立てること
無理なら細かく安価指定

※前スレ
Excel VBA 質問スレ Part75
https://mevius.5ch.net/test/read.cgi/tech/1644384272/

---

VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured

２げろ

Excel使い方すらわからない人はお断りです
Excel VBAが何かもわからない人もお断りです

我々の承認欲求を満たしてくれる質問お待ちしてます

向こうのスレ消化してから書き込めカス共

前スレ終わってないのに立てる >>1 が悪い

>>6
終わってから立てたらスレの連続性が途絶えるだろ
考えて物言え知恵足らずが

レス古事記の相手すんなよ...

過去にもしばらくスレ立て放置プレイされた事あったぜ

よろしくお願いします。以下の日本語で書いた部分に相当するような
繰り返し文ってありますでしょうか。

イメージしているのは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

繰り返し完了