ループ全体で、以下のようなコード行を数回使用しています。「ノーツードットルール」に従わないことを除いて、すべて正常に機能しますよね?
wksheet.Cells(cell.Row, "J").Value
cell.Row を int として格納できますが、そこからどこへ行くのでしょうか? 行番号と列文字を渡して、ルールに従いながらその特定のセルの値を取得できる関数はありますか?
ループ内で特定のセルの値を取得するたびに、範囲変数を宣言してから設定するのは面倒です。
Excel 相互運用オブジェクトを適切にクリーンアップするにはどうすればよいですか?
^このリンクでは、ノー 2 ドット ルールについて説明しています。