下記のところで copyxが 350 あたりで ハングというか 動きが 止まります。 copyx＝5 Me.Range("R3:Y" & copyx).Copy Destination:=Me.Range("R4") Me.Range("R3:Y3").Clear copyx＝copyx+1 初めは ("R3:Y1000"）だったのです。これで 動いていたのですが、環境が 変わったというか（全くそのような気配はないのですが。元データ 2012年データの50.000ほど から 2011の45.000ほどに 少なくなったのですが） ループで 1行づつ 確認するような ロジックで データ 2.000あたりで ハングの気配が出て、調べたら 上記のところで ひっかかった。 で コピー 範囲 ｒ3：ｙ320 なら OK ｙ330で ストップ とまで調べて 必要の範囲だけ というので ｃｏｐｙｘ に変えた これでも copyx が 400 あたりで ハング バッファーが 絡むんでしょうか？ 要は データ挿入するのですが、周りに下げたくない 部分があるので 全体のインサートが使えない で、1段下げるのに 上記の 構文 負荷の軽い構文って ありますでしょうか？ それより、この程度で 満タンに なるってのが・・・・ WIN8 2003 メモリ １６Ｇ 64BIT
↧