エクセルのVBAで最終行までループする方法

エクセルのVBAで最終行までループする方法を教えてください。
下記がコードになります。


Dim objIE As Object
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate Range("A1").Value
While objIE.ReadyState <> 4 Or objIE.Busy = True
DoEvents
Wend
Range("B1").value = objIE.Document.all("zoom1").href

No.3 ベストアンサー 回答者： DOUGLAS_ 回答日時： 2013/01/26 23:46

＃横から失礼いたします。

＞CPU使用率はものすごくあがるし、一個一個拾ってくるまですごい時間かかるんですが
＞これ以上速い動作はできないんですかね？

http://oshiete.goo.ne.jp/qa/7904549.html
の方の私の回答はお試しいただけたんでしょうか？

No.2 回答者： matyu1003 回答日時： 2013/01/23 17:27

No.1 の補足に対して

For nn = 1 To xLast

の1を任意の数にすれば、任意の行から始まりますよ。

この回答への補足

なるほど。これが行数を指すんですね。
ただこのマクロ１にリンクURLがあってそのページ内のズーム画像を取得してくるんですが、
CPU使用率はものすごくあがるし、一個一個拾ってくるまですごい時間かかるんですが
これ以上速い動作はできないんですかね？
　

補足日時：2013/01/24 05:12

No.1 回答者： JazzCorp 回答日時： 2013/01/23 09:09

アクティブシートに対するＡ列、Ｂ列の処理をループさせたい？？

例えば、
'Option Explicit
Sub xxx()
Dim objIE As Object
Dim nn As Long
Dim xLast As Long
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
xLast = Cells(Rows.Count, "A").End(xlUp).Row
For nn = 1 To xLast
objIE.Navigate Cells(nn, "A").Value
While objIE.ReadyState <> 4 Or objIE.Busy = True
DoEvents
Wend
Cells(nn, "B").Value = objIE.Document.all("zoom1").href
Next
End Sub

この回答への補足

これって　2行目からスタートとかってできるんでしょうか？

補足日時：2013/01/23 11:41