ファイルの中身の比較について

２つのファイルの同じセルの値を比較する処理を
作りたいのですが、例ってないでしょうか。

２つのファイルに関しては、ファイルを選択させて開くような
処理は作成しました。
またrangeで最初のセルの位置も設定してあります。
データがある限り処理をループさせる処理をつくりたいです。
以前、最終行の取得の処理は載っていたので、
そこの部分はクリアできてると思ってますが．．
お願いします

No.1 ベストアンサー 回答者： alesi_sato 回答日時： 2008/09/02 01:17

↓こんな感じでしょうか。

Set シート1 = Workbooks("***.xls").Worksheets("Sheet1")
Set シート2 = Workbooks("**2.xls").Worksheets("Sheet1")

列 = 3 'Ｃ列の比較と仮定して。

While (最終行の判断)
If シート1.cells(行, 列) = シート2.cells(行, 列) then
　　'比較の結果、何をするのでしょうか？
Endif
行=行+1
Wend

この回答への補足

アドバイスありがとうございます。
比較の結果、もし同セルの値が違った場合、
そのセルもしくは行を網掛けをさせたいのですが、
ちょっとうまくいっておりません。

提示のソースをカスタマイズすればできるとはおもってますので
やってみます

補足日時：2008/09/05 22:26