|
▼ichinose さん:
ichinoseさん。いつも有り難う御座います。
>皆さん、こんばんは。
>これ、こんなふうにすると
>on error 〜が不要なので、
>私は、こっちを使用していますが・・・。
>
>'========================================
>Sub test()
>n = 3
>Dim J As Variant
>Do Until Range("B" & n) = ""
> J = Application.Match(Range("B" & n), Sheets("data").Range("I:I"), 0)
> If Not IsError(J) Then
> Range("W" & n).Value = Sheets("data").Range("N" & J).Value
> End If
> n = n + 1
> Loop
>End Sub
>
>hisaoさん
>でも、On Error〜は、いろんな箇所で使えますから
>使い方をよく覚えてください・・・。
>間違った使い方を覚えてしまうと
>非常に読みにくいコードになってしまうので・・・。
|
|