行抽出マクロについて教えてください。

質問

エクセルで
sheet1このように入力されております。
A列には製造番号　Ｂ列には日付　Ｃ列単価　Ｄ列記号がすでに入力済みです。
_____________________________________
行/列　 A 　　 B 　　 C 　　 D
1 　 123456 　 4/5 　 1020 　 K
2　　789456　 5/2 　 500 　　D
3　　789789 　 6/2 　 9000 　 F
4　　456789 　 6/2 　 5000 　 S
-------------------------------------
sheet2には製造番号が500行ランダムに入力済みです。
_____________________________________
行/列　 A 　　 B 　　 C 　　 D
1 　 456789
2　　789456　
3　　789789
4　　456789
5 　　 ：
6　　　：
-------------------------------------
ボタンをおしたら一致した製造番号のＢＣＤ列にsheet1の日付・単価・記号を自動的に入力したい。どなたかご教授お願いいたします。

回答No.2

qualheart · ベストアンサー

Sub Macro1()
For a = 1 To 500
snum = Sheets(2).Cells(a, 1)
For b = 1 To 500 'ここはSheet1でデータが入力されてる行数
If snum = Sheets(1).Cells(b, 1) Then
Sheets(2).Cells(a, 2).Value = Sheets(1).Cells(b, 2)
Sheets(2).Cells(a, 3).Value = Sheets(1).Cells(b, 3)
Sheets(2).Cells(a, 4).Value = Sheets(1).Cells(b, 4)
Exit For
End If
Next
Next
End Sub

でどうでしょう？

お礼

とても早い対応誠に有難う御座います。
まさにコレで御座います。ほんとに有難う御座いました。

回答No.1

higekuman

http://okwave.jp/qa4338447.html