|
【33707】に関連する質問なのですが、作業を進めていくうちに質問の内容が題名とずれてきてしまったので、再投稿させていただきます。
Fund.xlsのDiscrepシートのA列に証券名が入っています。
他のブック(Jul 2005.xls)の複数あるシートから、対応する証券コードを探してきて、Q列に証券コードを表示させるのが目的です。
Jul 2005.xlsのフォーマットはすべて、「A列に証券名、C列に証券コード」で統一されています。
以下のコードを書いたのですが、
Do Until Not Cells.Find(Asset1) = "Nothing"
で「オブジェクト変数または With ブロック変数が設定されていません。」のエラーが表示されます。
Dim k As Integer, L As Integer
Dim j As Integer, Sheets1Count As Integer
Sheets1Count = Workbooks("Jul 2005.xls").Worksheets.Count
For j = 7 To 3000
For k = 7 To j
For L = 1 To Sheets1Count
Asset1 = Range("A" & k).Value
Workbooks("Jul 2005.xls").Worksheets(L).Activate
Do Until Not Cells.Find(Asset1) = "Nothing"
ID1 = Worksheets(L).Cells.Find(Asset1).Offset(, 2).Value
Workbooks("Fund.xls") .Worksheets("Discrep").Activate
Range("Q" & k).Value = ID1
Loop
Next L
|
|