|
こんにちは。かみちゃん です。
>Sheet1にはB1だけでなく、B2 B3・・・・・とデーターがはいっています。
>Sheet2のB1セルと、Sheet1のB列では一致するセル番号は1つしかありません。
以下のコードでどうでしょうか?
B1、B2、B3・・・と「空白でない限り(<>"")」順番に繰り返し処理をしていきます。
Sub Macro1()
Dim RowNo As Long
Dim c As Range
Worksheets("Sheet1").Select
RowNo = 1
Do While Cells(RowNo, 2).Value <> ""
With Worksheets("Sheet2").Columns("B")
Set c = .Find(Cells(RowNo, 2).Value, LookIn:=xlValues)
If Not c Is Nothing Then
'検索値に一致したらコピーする
Sheets("Sheet2").Rows(c.Row).Copy
Cells(RowNo, 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Else
MsgBox "検索値が見つかりません"
End If
End With
RowNo = RowNo + 1
Loop
Range("A1").Select
End Sub
|
|