VBAで処理が固まる？

https://oshiete.goo.ne.jp/qa/10750122.html
で質問させて頂いたものです。
作成頂きましたマクロにて使わさせて頂いているのですが、マクロ処理が固まって？動かなくなりました。（動かなくなったのか、まだ処理中なのかは分かっていません）
補足させて頂いた内容よりデータ件数のMAX値が変更がありましたが、それが影響しているでしょうか？
⇒JISSEKI：MAX10000件ぐらい
　JUTYU：MAX5000件ぐらいです。→10000万近くありました。

ESCを押して処理を止めたら、下記の構文のところで処理が止まっているようです。

dkey = sh1.Cells(lrow, "J").Value & "|" & sh1.Cells(lrow, "C").Value & "|" & sh1.Cells(lrow, "L").Value

No.1 ベストアンサー 回答者： tatsu99 回答日時： 2018/10/08 18:32

前回回答者です。

処理時間の短縮のために、マクロ実行中は、自動計算を行わないようにしました。
マクロは下記URLに格納しました。
https://ideone.com/JpRDmn

ちなみに、JISSEKI：１0000件、JUTYU：10000件で、こちらで約2分ほどかかりました。
あなたのPCの性能にもよりますが、５分ほど、待っていただけませんでしょうか。
又、各処理の実行時間でどこで時間がかかっているかも、わかるようにしました。

＞ESCを押して処理を止めたら、下記の構文のところで処理が止まっているようです。
＞dkey = sh1.Cells(lrow, "J").Value & "|" & sh1.Cells(lrow, "C").Value & "|" & sh1.Cells(lrow, "L").Value
とのことですが、
また、同じ箇所でとまった場合、
maxrowとlrowにマウスをあてると、その値が表示されます。その値をメモして、提示していただけませんでしょうか。

尚、マクロの最後のほうの
Debug.Print "JUTYU読み込み", Format(t2 - t1, "n分s秒")
Debug.Print "JISSEKI読み込み", Format(t3 - t2, "n分s秒")
Debug.Print "ソート", Format(t4 - t3, "n分s秒")
Debug.Print "まとめ作成", Format(t5 - t4, "n分s秒")
は、途中経過時間を、イミデイトウィンドウに表示するものです。
マクロを表示した画面で、「表示」タブ→イミデイトウィンドウ　を選択すると、その画面が出現します。
問題が解決した場合は、上記の４行をコメントにしてください。
（そのままでも問題ありませんが、そのままにしておくと、イミデイトウィンドウに延々と出力されます）

この回答へのお礼

ありがとうございました！
1分以内で処理が終るようになりました。
お手数をお掛けして申し訳ございません。
非常に助かりました。

お礼日時：2018/10/09 10:12