Excel VBA質問箱 IV

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

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


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

1258 / 76807

←次へ　｜　前へ→


	【81204】VBAのVlookupについて

as - 20/3/7(土) 14:11 -


	引用なし

	パスワード

空白をエラーと認識してしまいます。
お分かりになる方がいれば、ご教授いただけると幸いです。

現状は下記コードになります。

Sub Main()

　Dim Serchkey As Range
　Dim SerchRange As Range
　Dim OutputRange As Range
　Dim i As Long

　Set Serchkey = Worksheets("書籍貸出表").Range("B3:B8")　　　　
　Set SerchRange = Worksheets("書籍管理一覧表").Range("A3:B8")　
　Set OutputRange = Worksheets("書籍貸出表").Range("B3:C8")　　　

　Application.ScreenUpdating = False　'Flaseで画面更新停止、Trueで画面更新再開
　
　For i = 1 To Serchkey.Rows.Count
　 OutputRange(i, 2) = WorksheetFunction.Vlookup(Serchkey(i, 1), SerchRange, 2, False)
　Next
　Application.ScreenUpdating = True
　　
End Sub

3 hits

▼

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