|
お世話になります。
報告書を別シート(リスト)に以下のようにして反映させています。
報告書に名前(AL2)と日付(L3)を入れ、リストから一致させて、
元の報告書に戻すには、どの様にしたらよろしいのでしょうか?
Sub Macro1()
With Sheets("リスト").Range("B65536").End(xlUp)
.Offset(1, 0).Value = Sheets("報告書").Range("AL2").Value '名前
.Offset(1, 1).Value = Sheets("報告書").Range("l3").Value '日付
.Offset(1, 2).Value = Sheets("報告書").Range("l4").Value
.Offset(1, 3).Value = Sheets("報告書").Range("l5").Value
.Offset(1, 4).Value = Sheets("報告書").Range("l6").Value
.Offset(1, 5).Value = Sheets("報告書").Range("l8").Value
.Offset(1, 6).Value = Sheets("報告書").Range("l10").Value
End With
End Sub
宜しくお願いいたします。
|
|