|
Jakaさんレスありがとうございました。
ただJakaさんのレスをどうやって解決に結びつけてよいか分からないのですが。
【33707】で省略して書きましたが、今書きかけのコードは
Range("Q" & j).FormulaR1C1 = "=VLOOKUP(RC1,'\\Sv01\share_jp\Jul 2005\[Jul 2005.xls]EQ'!$A$3:$C$3000,3,FALSE)"
Range("R" & j).FormulaR1C1 = "=VLOOKUP(RC3,'\\Sv01\share_jp\Aug 2005\[Aug 2005.xls]EQ'!$A$3:$C$3000,3,FALSE)"
となっています。
* 2005.xlsには、EQシート以外のシートもあり、フォーマットはすべて、「A列に証券名、C列に証券コード」で統一されています。
そして、A列(B列)の証券名がEQシートになくても、他のシートには存在した場合、そのシートから対応する証券コードを探してきて、Q列(R列)に表示したいのです(VLOOKUP関数の範囲を複数のシートに指定するようなイメージで)。
すべてのシートのすべてのセルに対してFind メソッドを使えばよいのかと思い
Range("Q" & j).Value = Workbooks("Jul 2005.xls").Worksheets.Cells.Find(Range("A" & j).Value, LookIn:=xlValues).Offset(, 2).Value
としましたが
「メソッドまたはデータメンバが見つかりません。」のエラーが表示されました。
|
|