|
▼kobasan さん:
早速お返事有り難う御座います。
ただし 此では エラーがあっても
Range("W" & n).Value = Sheets("data").Range("N" & J).Value
が生きているため 前の J で ("W" & n) を入れてしまいませんか?
エラーの行は空白にしたいのです。
>▼hisao さん 今晩は。
>
>>すみません。またまた教えて下さい。
>>次のような構文で 2回目以降のエラーでAA:に飛んでくれず
>>処理が中断します。
>>エラー処理の仕方に誤りが有ると思うのですがよく解りません。
>>宜しくお願い致します。
>
>この場合は、On Error GoTo AAでなく、On Error Resume Nextを使うといいのでは。
>以下で希望の動きをすると思います。
>
>
>On Error Resume Next
>>n = 3
>>Do Until Range("B" & n) = ""
>
>>J = Application.WorksheetFunction.Match(Range("B" & n), Sheets _ ("data").Range("I:I"), 0)
>>Range("W" & n).Value = Sheets("data").Range("N" & J).Value
>
>
>>n = n + 1
>>Loop
>
>Err.Clear
>
>>End Sub
|
|