Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

47943 / 76738

←次へ　｜　前へ→


	【33740】Re:他のブックの複数のシートから検索。

Statis - 06/1/19(木) 19:07 -


	引用なし

	パスワード

こんにちは

これで如何かな？

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

0 hits

▼

【33725】他のブックの複数のシートから検索。 k 06/1/19(木) 12:44