|
>『Book1』のA1からF1までを『Book3』のA1からF1に移動し、
>初めにヒットした値の行の1〜5列目までを
が一致しないのですが。
取り敢えず、A列からF列までと言う事にします。
Bookは3つとも開いている状態とし、Book3に転記を開始する時は
必ず1行目から行なうとした場合、
Sub test()
Dim WS1 As Worksheet
Dim WS2 As Worksheet
Dim WS3 As Worksheet
Dim r As Range, rr As Range
Dim i As Long
Set WS1 = Workbooks("Book1.xls").Worksheets("Sheet1")
Set WS2 = Workbooks("Book2.xls").Worksheets("Sheet1")
Set WS3 = Workbooks("Book3.xls").Worksheets("Sheet1")
Set rr = WS3.Range("A1")
i = 1
With WS1
Do
Set r = WS2.Columns("B").Find(What:=.Range("A" & i).Value, _
LookIn:=xlValues, LookAt:=xlWhole)
If Not r Is Nothing Then
rr.Resize(, 6).Value = .Range("A" & i).Resize(, 6).Value
Set rr = rr.Offset(1)
End If
Set r = Nothing
i = i + 1
Loop Until i > .Range("A" & Rows.Count).End(xlUp).Row
End With
End Sub
ファイルをコピーしてから実施してみて下さい。
|
|