0

このコードを実行すると、必要なテーブルを埋めることができましたが、最後の反復で Range("F" & r)... 行で壊れて、エラー 1004 が発生します。理由がわかりません。実際に実行すると機能します...しかし、最後にエラーが発生します。

Sub Stuff1()
    Dim r As Integer
    r = 37
    Do
        Range("F" & r).GoalSeek Goal:=0, ChangingCell:=Range("D" & r)
        r = r + 1
    Loop Until IsEmpty("E" & r)
End Sub

注: Do While Not を実行してみましたが、まったく同じことが起こります。編集：Excel 2013 btw

4

2 に答える 2

2

現時点で行っているように、文字列ではないIsEmptyものを参照するように関数を変更する必要があります..Range

Loop Until IsEmpty(Range("E" & r))

また、データ型をrに変更する必要がありますLong。行 32768 以降にアクセスしようとすると、Integer.

1004エラーについて...

ゴールシーク セルには、操作するセルを参照する数式が必要です。これがあなたのエラーの理由になると思います。

于 2013-11-09T17:49:24.753 に答える
1 
Loop Until Range("E" & r)=""
于 2013-11-09T15:37:45.260 に答える