|
りん さん、こんにちは。
有難うございました。
検索値自体が違っていました。
このように違う検索値がある場合の回避はどのようにしたら宜しいでしょうか?
For n = r To rEnd 'rは最初の行で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が出てしまいます。
エラー処理で回避するしか無いのでしょうか?
宜しく御願い致します。
|
|