セルの選択、貼り付け

質問

よろしくお願いします。
次のような処理をするプログラムを書きたいのですが、うまく書けません。教えてください。
（処理）
1つのExcelファイルの中で、sheet1A列のセルの値と同じ値を有するセルがsheet2A列にある場合、当該行のB列の値をsheet1のセルに貼り付ける。

　　（前）
〈sheet1〉　　　　　　　〈sheet2〉　　　　　　　　　
　 A　　B　…　　　　　　　A　　B　…　　　　　　　　　　　　　
1　c1　　 　　　　　　　　1　c1　200　　
2　b2　 　　　　　　　　　2　a1　300　　
3　d5　　 　　　　　　　　3　b3　500　　　　　　　　　　　
： 　　 　　　　　　　　　　4　b2　400
　　 　　　 　　　　　　　　 5　d5　500　　　　　　　　　　　　
　　　　　　　　　　　　　　：

　　（後）
〈sheet1〉　　　　　　　　　　　　　
　 A　　B　…　　　　　　　　　　
1　c1　200 　　　
2　b2　400 　　　　
3　d5　500　 　
：

回答No.2

ham_kamo · ベストアンサー

あえてVBAでやるとしたら、以下のような感じでしょうか。

Sub Sample()
　Dim R As Range, F As Range
　Set R = Worksheets("Sheet2").Range("A1")

　Do While R.Value <> ""
　　Set F = Worksheets("Sheet1").Range("A:A").Find(R.Value)
　　If Not F Is Nothing Then
　　　R.Offset(0, 1).Value = F.Offset(0, 1).Value
　　　Set R = R.Offset(1)
　　End If
　Loop
End Sub

回答No.1

hana-hana3

VLOOKUP関数で可能かと思いますが、ＶＢＡなら下記のような方法があります。

Sub test()

Dim data As Variant
Dim ct As Long

Set data = Sheets("Sheet2").Range("A1:B10")

Sheets("Sheet1").Activate
ct = 1

On Error Resume Next
Do While Cells(ct, 1) <> ""
Cells(ct, 2) = Application.WorksheetFunction.VLookup(Cells(ct, 1), data, False)
ct = ct + 1
Loop
End Sub