オブジェクト定義のエラー

Question

次のコードを実行すると、「アプリケーション定義またはオブジェクト定義のえらーです。」と表示されます

Dim i As Long
i=1

Do while range(i,A)<>""
i = i+1

Loop

Cells(1,2)=i

オブジェクト定義は、i=数字(Long)と言う認識で、コード中もiを数字として扱っていたのですが、私の理解が間違えていたのでしょうか。

色々考えましたが分かりません。
ご助言お願いします。

Answer 1

range(i,A)

の指定方法が、ダメみたいですね。

Range オブジェクト (Excel)

Comments

[ice930]

参考にさせていただきました！
ありがとうございます。

Answer 2

range(i,A)ではなくcells(i,1)かrange("A" & i)としてください。

Comments

[ice930]

個人的に分かりやすかったのでベストアンサーとさせていただきました！
助かりました！ありがとうございます！

Answer 3

いくつか文法的におかしいところがあります。
修正してみましたので、実行してみてください。

Option Explicit

Sub hoge
  Dim i as Long 
  i = 1
  Do While Cells(i, "A").Value <> ""
  ’Dim while range(i,A)<>""
    Cells(i "B").Value = i
    ’Cells(1,2)=i
    i = i + 1
  Loop
End Sub

Comments

[ice930]

最初に間違えたコードを質問していました以後気をつけます(汗
ご回答いただきありがとうございます！