オブジェクトが必要???

質問

Excel VBAで以下のコードを作成しました。
データを比較して、抽出する簡単なモノです。
ですが、いざ実行すると、「実行エラー:424 オブジェクトが必要です」と表示され動きません・・・。
自分なりに調べて、Rangeの前にシート名を付け加えたりしたのですが、どうにもウマく行きません・・・
どうしたらよいのでしょうか？

コード：
Dim i
Dim j
Dim n

i = 2
j = 2
n = 1

Do While whois.Range("Ai") <> "END"
Do While j <> "END2"
If whois.Range("Ai") = totalpass.Range("Aj") Then
If whois.Range("Ci") <> totalpass.Range("Ej") Then
whois.Range("Ai:Ii").Copy
ansdiff.Range("An:In").Paste
n = n + 1
End If
Else
j = j + 1
End If
Loop
j = 2
i = 2
Loop

回答No.1

maruru01 · ベストアンサー

こんにちは。maruru01です。

コード中のi、j、nは（おそらく整数型の）変数です。
（変数の型はちゃんと指定しましょう。例→Dim i As Longなど）
したがって、

Range("Ai")

という表現は出来ません。
Rangeの引数は文字列です。文字列は「"」で括られます
その「"」の中に変数を入れてはいけません。
変数でセルを指定する場合は、Cellsプロパティを使用する方が便利です。
Cellsプロパティは、

Cells(行番号,列番号)

と指定します。（行番号と列番号はR1C1形式の番号になります。）
例えば、
A1→Cells(1,1)
E3→Cells(3,5)
となります。
したがって、A列のi行なら、
Cells(i,1)
になります。

あと、Cellsプロパティ（Rangeも）にシート名を付ける場合は、

Worksheets("シート名").Cells(i,1)

のようにします。

お礼

上記の注意点を踏まえて作り直したらうまく行きました。初心者なモノで、なにやらおかしな事をやっていたみたいです。ありがとうございます。