Do While の無限ループについて

Question

以下のコードを実行すると無限ループとなります。

Dim name As String
Dim intA As Long
Dim testretu As Long
Dim testgyou As Long


testgyou = 1
testretu = 3
intA = 2


name = Sheets("test1").Cells(1, testretu)

Do While name <> ""


Sheets("一覧抽出").Cells(1, intA) = name
intA = intA + 1

testretu = testretu + 4
Loop

シートtest1のセルC1にはデータが有りますがF列以降にはデータはありません。

Do While name <> ""

このコードは「nameが空欄になるまで続ける」という理解で間違いないでしょうか。
この原因について、ご指摘、ご助言いただければと思います。

よろしくお願いします。

Answer 1

ループとなる条件name <> ""が常に真になっているから無限ループになります。
DO～LOOP内でnameの値は更新されないので常にSheets("test1").Cells(1, 3)の値が入っています。

Comments

[ice930]

nameの初期値設定と、nameの更新をDo While内に入れることで解決しました！
コードの入力順についても意識して記入するようにします！
ありがとうございました！

Answer 2

このコードは「nameが空欄になるまで続ける」という理解で間違いないでしょうか。

間違いないけど、そのループ中でnameが変化することはないので、無限ループにしかならないですね

Comments

[ice930]

ありがとうございます。
name = Sheets("test1").Cells(1, testretu)
をdo While内に入れたところ無限ループが解決しました。

ところが今度はtest1内のC1にあるデータに反応せず、そのまま終わってしまいます。
C1のﾃﾞｰﾀはハイパーリンクが付いているのですが、リンク付きだと””（空欄）とみなされる場合はありますでしょうか？
コメント内で申し訳ありませんがよろしければご助言ください。

[y_waiwai]

実行をそこで止めて、nameになにが入ってるのか見てみればいいかと

[ice930]

nameの初期値を設定していなかったので、Do While~　に入る前にnameが””(空欄)になっていました！

おかげで解決しました！
ありがとうございました！