|
こんにちは
これで如何かな?
Dim j As Long, Sheets1Count As Long, L As Long
Dim Asset1 As String, Fi As Range
Sheets1Count = Workbooks("Jul 2005.xls").Worksheets.Count
With Workbooks("Fund.xls").Worksheets("Discrep")
For j = 7 To .Range("A65536").End(xlUp).Row
Asset1 = .Range("A" & j).Value
For L = 1 To Sheets1Count
Set Fi = Workbooks("Jul 2005.xls").Worksheets(L) _
.Cells.Find(Asset1, , xlValues, xlWhole)
If Not Fi Is Nothing Then
.Range("Q" & j).Value = Fi.Offset(, 2).Value
Set Fi = Nothing
Exit For
End If
Next L
Next j
End With
|
|