|
こんばんは。
>シート1のA列、B列という表とシート2のA列、B列という表の二つの表があり、
>シート1のA列のデータを頭から全て順に、シート2のA列のデータと比較して
>データが一致したらシート2のB列の値をシート1アクティブセルの隣のセル
>(B列)データを転記するVBAを作りたいと思っています。
シート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
|
|