| |
▼ponpon さん：
こんなに短時間でレス頂き、本当にありがとうございます。
>シート2のA列のデータには、重複は、ないのでしょうか？
はい、シート2のA列データには重複はありません。質問文を後から読んで
みると意味不明な文になっていて恐縮です。それでも正確に内容を把握し
て的確なアドバイスを頂き感謝です。
>Vlookupでは、ありませんが、
>シート1のA列のデータを上から順に見ていき、シート2のA列のデータと
>一致したら、シート2のB列の値を検索したシート1のA列の隣（B列）に
>転記します。
> こういう意味でしょうか？
>
>Sub test()
> Dim myR As Range
> Dim r As Range
> Dim FR As Variant
>
> With Sheets("Sheet1")
> Set myR = Range("A1", Range("A65536").End(xlUp))
> End With
>
> Application.ScreenUpdating = False
> For Each r In myR
> FR = Application.Match(r.Value, Sheets("Sheet2").Range("A:A"), 0)
> If Not IsError(FR) Then
> r.Offset(, 1).Value = Sheets("Sheet2").Cells(FR, 2).Value
> End If
> Next
> Application.ScreenUpdating = True
>End Sub
素晴らしいです！w(゜o゜)w上記のコードには私が疑問に思っていた事や他の
テクニックが盛り込まれていて大変勉強になりました。シートの範囲選択の
方法や、選択範囲内をMatch関数を使い、順に検索して、エラーが発生して
いなければシート2のB列の値をシート1のB列に転記するというテクニックは
すごいと思いました。
これで問題は解決できると思います。
本当にありがとうございました。m(_ _)m
|
|
hiropon
- 06/2/23(木) 21:51 -
