| 
    
     |  | 「Book間のコピー貼り付け」を追加しておきます。 ただしBookは開いて使用します。
 まずはここらからやってみてください。
 
 Sub Macro4()
 ' マクロ記録日
 '
 Range("A1:A17").Select
 Selection.Copy
 Windows("Book1").Activate
 Range("B2").Select
 Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
 False, Transpose:=False
 End Sub
 
 Sub Macro5()
 ' Macro4を変化させたもの
 '
 Range("A1:A17").Copy
 Windows("Book1").Activate
 Range("B2").PasteSpecial Paste:=xlValues
 End Sub
 
 Sub Macro6()
 ' Macro5を変化させたもの
 '
 Range("A1:A17").Copy
 Workbook("Book1").Range("B2").PasteSpecial Paste:=xlValues
 End Sub
 
 
 |  |