エクセル VBAでWEBページデータを順番に抽出

質問

J2セル～J2320セルに、異なるWEBページのURLを入力しています。
それぞれのURLから特定のデータを抽出して、K2～K2320セルに表示するにはどうすればよいのでしょうか。
J2のURLからデータを抽出してK2へ表示するだけの単純なVBAは下記のとおり作成しましたが、残りのJ3～J2320についても同様の処理を繰り返したいと思います。
どうすればよいのでしょうか。ご教示ください。
-----------------------------------------------
Sub クエリ抽出()

With ActiveSheet.QueryTables.Add(Connection:="URL;" & [J2], Destination:=Range("K2"))
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "13"
.Refresh BackgroundQuery:=False

End With

End Sub
-----------------------------------------------

回答No.1

keithin · ベストアンサー

sub macro1()
　dim h as range
　for each h in range("J2:J2320")

　With ActiveSheet.QueryTables.Add(Connection:="URL;" & h, Destination:=h.offset(0,1))
　.WebSelectionType = xlSpecifiedTables
　.WebFormatting = xlWebFormattingNone
　.WebTables = "13"
　.Refresh BackgroundQuery:=False
　End With

　next
end sub
などのように。

お礼

早速のご回答ありがとうございます！
思っていた作業ができました。助かりました。
大変ありがとうございました！！