Excel VBA質問箱 IV

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

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


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

1180 / 76734

←次へ　｜　前へ→


	【81209】Re:VBAのVlookupについて

マナ - 20/3/7(土) 18:22 -


	引用なし

	パスワード

▼as さん：
>検索して見つからなかった場合は、エラーとして返したいです。

Application.VLookupを使います。

Sub Main2()
　　Dim Serchkey As Range
　　Dim SerchRange As Range
　　Dim OutputRange As Range
　　Dim i As Long
　　
　　Set Serchkey = Worksheets("1").Range("B3:B8")
　　Set SerchRange = Worksheets("2").Range("A3:B8")
　　Set OutputRange = Serchkey.Offset(, 1)
　　
　　Application.ScreenUpdating = False　'Flaseで画面更新停止、Trueで画面更新再開
　　
　　For i = 1 To Serchkey.Rows.Count
　　　　If Serchkey(i) <> "" Then
　　　　　　OutputRange(i) = Application.VLookup(Serchkey(i), SerchRange, 2, False)
　　　　End If
　　Next
　　Application.ScreenUpdating = True
　
End Sub

14 hits

▼

【81204】VBAのVlookupについて as 20/3/7(土) 14:11