エクセルのループ処理について

質問

ループ処理で、2つのシートを内容を比較して
一方のシートにあったデータを別のシートのリストから削除しています。しかし、単純なループ処理でやるとすごく時間がかかるので早く処理する方法を教えていただければと思います。

シートA(3000件)とシートB(5000件程度)があり,AとBともにデータのソートを行なっています。そして、
シートAの特定セルのデータを順番に読み、その内容がシートBのあるセルのデータと一致するか検索し、セル値が同じ場合、シートBの行を削除するような仕組みです。

よろしくお願いいたします。

回答No.1

miyuyu · ベストアンサー

こんにちは
> すごく時間がかかるので
ソースが無いのでなんとも言えませんね
Application.ScreenUpdatingは使ってみましたか

お礼

ありがとうございます。
アドバイスを参考しましたら、ずいぶんと高速になりました。
さらに改善し高速化を目指します。

回答No.4

n-jun

＃３です。

重要なのは重複検索するのが、
・双方１列
・双方複数列の組み合わせ
等にも影響します。

画面更新を止めてなくてと言う事なら、＃１さんの方法がいいかも。
止めても遅いのなら別途補足されては如何でしょう。

お礼

ありがとうございます。
#1さんのアドバイスを参考しましたら、ずいぶんと高速になりました。
さらに改善し高速化を目指します。

回答No.3

n-jun

シート構成が不明なのでわかりませんが、直接セルを見ながらではなく、
一旦配列に放り込んでデータ検索・削除を行ない、その後書き出してみるとか？

ただ列数が多いとパンクするかも？

回答No.2

imogasi

Aシート側のデータで、Bシートのデータ範囲に対し、Findメソッドで検索すればよい。Aシートデーターー＞Bシートデータが複数（多）該当ならFindNextを続ける。
WEBに「Find　VBA」で検索すること。コード例が沢山出るでしょう。
http://officetanaka.net/excel/vba/cell/cell11.htm　など多数
ほんとに処理完了が早くなるか判らないが、これしかやってみる方法はないでしょう。
ーー
＞シートAの特定セルのデータ
と「特定」なんて、持って回った言い方は、読者にわからない。
この出現の仕方が、VBAコードの複雑さを左右するよ。
同一列に順次現れると一番簡単なパターン。
VBAコードを作る課題ポイントは
（１）シートAの特定セルのつかみ方
（２）Find,FindNextの使い方。
見つからないとき、最終が見つかった時の捉え方
A.ObjectのNothing法
B.最初見つかった行にもどった際を、終わりと判定する法
など有る。
（３）行削除のやり方
下行から削除する、も良い点は有るが、下行から検索するReverseFindはVBAには無いようだ。

お礼

ありがとうございます。
#1さんのアドバイスを参考しましたら、ずいぶんと高速になりました。
上記アドバイスの方法で、さらに改善し高速化を目指します。