|
ちょっと あさん のをなおしてみました。
だめだったらごめんなさい。
Sub test2()
Dim 品番 As String
Dim 最下行 As Integer
Dim i As Integer
Dim 検索セル As Variant
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Set sh1 = Workbooks("データ取り込み.xls").Worksheets("★★")
Set sh2 = Workbooks("背番号.xls").Worksheets("★★") 'シート名を適宜変更
最下行 = sh1.Range("A1").End(xlDown).Row
For i = 2 To 最下行
品番 = sh1.Range("B" & i).Value
Set 検索セル = sh2.Columns("A").Find(what:=品番, lookat:=xlWhole)
If Not 検索セル Is Nothing Then
sh1.Range("D" & i).Value = 検索セル.Offset(, 1).Value
End If
Next
End Sub
|
|