Excel VBA質問箱 IV

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

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


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

70468 / 76807

←次へ　｜　前へ→


	【10849】Vlookupについて教えてください。

ギン - 04/2/16(月) 11:33 -


	引用なし

	パスワード

りんさん、こんにちは。
有難うございました。
検索値自体が違っていました。
このように違う検索値がある場合の回避はどのようにしたら宜しいでしょうか？
For n = r To rEnd 'ｒは最初の行でrEndは最後の行です。
　　c2 = ActiveCell.Column
　　If ActiveCell.FormulaR1C1 = WorksheetFunction.IsError _
　　　　(WorksheetFunction.VLookup(Cells(n, 2), Worksheets _
　　　　("区分").Range("A2:AZ700"), 2, 0)) Then
　　　　ActiveCell.FormulaR1C1 = "#N/A"
　　　　ActiveCell.Offset(1).Select
　　Else
　　　　ActiveCell.FormulaR1C1 = WorksheetFunction. _
　　　　VLookup(Cells(n, 2), Worksheets("区分").Range("A2:AZ700"), 2, 0)
　　　　ActiveCell.Offset(1).Select
　　End If
Next n
とすると検索値が違うところで実行時エラー1004が出てしまいます。
エラー処理で回避するしか無いのでしょうか?
宜しく御願い致します。

2 hits

▼

【10833】Vlookupについて教えてください。 ギン 04/2/15(日) 19:46