|
▼nonoka さん:
とりあえず、一つ目改訂版です。
Sub ひとつ目()
Const fCode As String = "D" 'Processシートのコード列
Const fLine As Long = 5 ' データ開始行
Const tCode As String = "H" 'Scheduleシートのコード列
Const tLine As Long = 10 ' データ開始行
Dim dic As Object
Dim c As Range
Application.ScreenUpdating = False
Set dic = CreateObject("Scripting.Dictionary")
With Sheets("Process")
For Each c In Range(.Range(fCode & fLine), .Range(fCode & .Rows.Count).End(xlUp))
dic(c.Value) = c.EntireRow.Range("E1:R1").Value
Next
End With
With Sheets("Schedule")
For Each c In Range(.Range(tCode & tLine), .Range(tCode & .Rows.Count).End(xlUp))
If dic.exists(c.Value) Then c.EntireRow.Range("AD1:AQ1").Value = dic(c.Value)
Next
.Select
End With
Application.ScreenUpdating = True
End Sub
|
|