|
▼MAX さん:
コピー前にSheet2のクリア処理は必要?
クリアしてないので、必要なら追加して下さい。
Sub sample()
Dim myCol1 As Long
Dim myCol2 As Long
Dim myRowMx As Long
For myCol2 = 1 To Sheets("Sheet2").Cells(1, Cells.Columns.Count).End(xlToLeft).Column
With Sheets("Sheet1")
For myCol1 = 1 To .Cells(1, Cells.Columns.Count).End(xlToLeft).Column
If .Cells(1, myCol1).Value = Sheets("Sheet2").Cells(1, myCol2).Value Then
myRowMx = .Cells(Cells.Rows.Count, myCol1).End(xlUp).Row
.Range(.Cells(2, myCol1), .Cells(myRowMx, myCol1)) _
.Copy Sheets("Sheet2").Cells(2, myCol2)
Exit For
End If
Next myCol1
End With
Next myCol2
End Sub
ゴリゴリ回してみました^^;;
あまりスマートではありませんが、参考までに。
|
|