|
「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
|
|