投稿日 | : 2004/11/01(Mon) 10:52 |
投稿者 | : ももたろう |
Eメール | : |
URL | : |
タイトル | : EXCELセル相違点チェックの方法 |
いつもこのHPを参考にしており、大変助けられています。ありがとうございます。
EXCELについて相談です。
<やりたい事>
70ファイルのEXCELがあります。
このファイルはBG列まであり、行はそれぞれ違い10行〜7000行まであります。
このファイルを編集するので、編集後と編集前の相違点をチェックしたいです。
チェック項目は、「行数違い」「セルの色違い」「値違い」です。
「行数違い」はB列の途中に空白セルがないので、下記のようにして比較しようと思っています。
xlSheet.Range("B1").End(xlDown).Select '最終行までスクロール
row = xlApp.ActiveCell.row 'データのある最終行
「セルの色違い」「値違い」が悩んでいるところで、
xlSheet.Range("BG" & i).value で値を取得して比較する方法を思いついたのですが、
データ量が多くて、時間がかかってしまいます。
10分以内(早ければ早いほどいい)で終わらせたいのですが、何か方法はないでしょうか?
よろしくお願いします。