|
最初に開いたブックを基準にコピペを繰り返させたいのですが、マクロを登録すると下記の通りになってしまいます。
Windows("20060202歩み値.xls").Activateの部分を、最初に開いたブックを基準にするように置き換えたいのですが、可能でしょうか?
Sub 最後尾に歩み値追加テスト2()
Sheets("任天堂").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
Windows("大口歩み値.xls").Activate
Sheets("任天堂").Select
ActiveCell.SpecialCells(xlLastCell).Select
ActiveCell.Offset(1, -4).Range("A1").Select
ActiveSheet.Paste
ActiveCell.SpecialCells(xlLastCell).Select
ActiveCell.Offset(1, -4).Range("A1").Select
Windows("20060202歩み値.xls").Activate
Sheets("マクド").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Application.CutCopyMode = False
Selection.Copy
Windows("大口歩み値.xls").Activate
Sheets("マクド").Select
ActiveCell.SpecialCells(xlLastCell).Select
ActiveCell.Offset(1, -4).Range("A1").Select
ActiveSheet.Paste
ActiveCell.SpecialCells(xlLastCell).Select
ActiveCell.Offset(1, -4).Range("A1").Select
Windows("20060202歩み値.xls").Activate
Sheets("ギャガ").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Application.CutCopyMode = False
Selection.Copy
Windows("大口歩み値.xls").Activate
Sheets("ギャガ").Select
ActiveCell.SpecialCells(xlLastCell).Select
ActiveCell.Offset(1, -4).Range("A1").Select
ActiveSheet.Paste
ActiveCell.SpecialCells(xlLastCell).Select
ActiveCell.Offset(1, -4).Range("A1").Select
End Sub
この場合最初に開いたブックは、20060202歩み値.xlsになるのですが、日々新しいデータを追加して行きたいので、ブック名で指定してしまうと、他のブックを開いたときに機能しなくなってしまうのです。
なにか良い方法があったら教えて下さい。よろしくお願いします。
|
|