|
いつもお世話になっております。
今回、集計表の仕様変更に伴い、従来のコードに支障が出てしまいました。
どうかお力をお貸しください。
他のブックのTOTALというシートのA列に、元のブックのセルK1と同じ値があるかどうか調べ、
もしあれば、その値のある行に対して諸々の処理をしようとしています。
この「他のブック」というものがワークシート関数だらけでとても重く、
しかもそれを多いときには100以上ものブックを順次調べなければなりません。
そこでブックを開かないですむよう、
以下のようなコードで同じ値がある行番号を調べて処理していました。
今まではこのA列に値そのものが入っていたので、このコードで処理できていましたが、
仕様変更に伴い、A列には数式が入るようになってしまい、MATCHしなくなってしまいました…
With .Cells(i, 3)
.Formula = "=MATCH(K1,'×××\[○○○.xls]TOTAL'!A:A,0)"
.Value = .Value
End Wit
これを、数式ではなくその値でMATCHさせたいのですが、
どうしたらよいのかアイディアが浮かびません。
MATCH関数は範囲だけでなく、配列に対しても行なえるようですが、
私のスキルでは、ブックを開かずに配列に取り込むことができずに断念。
なお、A列の最終行は変動し、該当する値が入っていない場合もあります。
MATCH関数にこだわることはなく、他の方法も調べてみたのですが、
好ましい情報になかなか当たりません。
何か道標になるようなことがありましたら、どうかお与え下さい。
宜しくお願い致します。
*Windows2000, Excel2000
|
|