VBAで多重ループを使っていると、重くなって反応なしになってしまう。簡単な対策は、ループの中にDoEventsを挟むだけ。それだけ。毎回ループ毎にDoEventsを挟むと時間がかかるので、数回に一回ループを挟む形にする。 for i = x to y if i mod z = 0 then Do…