Sub 条件一致転記()
Dim 転記先シート As Worksheet
Dim 参照シート As Worksheet
Dim 転記先行番号 As Long
Dim 参照行番号 As Long
Set 転記先シート = Worksheets("Sheet1")
Set 参照シート = Worksheets("Sheet2")
For 転記先行番号 = 2 To 転記先シート.Cells(Rows.Count, 1).End(xlUp).Row
For 参照行番号 = 2 To 参照シート.Cells(Rows.Count, 1).End(xlUp).Row
If 転記先シート.Cells(転記先行番号, 1) = 参照シート.Cells(参照行番号, 1) Then
転記先シート.Select
参照シート.Range(参照シート.Cells(参照行番号, 2), 参照シート.Cells(参照行番号, 4)).Copy _
転記先シート.Range(転記先シート.Cells(転記先行番号, 5), 転記先シート.Cells(転記先行番号, 6))
End If
Next 参照行番号
Next 転記先行番号
End Sub
