ちくのう症(蓄膿症)は「菌」が原因!?

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

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

A 回答 (1件)

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



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

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

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

この回答への補足

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

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

補足日時:2008/09/05 22:26
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング