'Excel2003/3010共 Range("L2").Selectで[Delet]キー押した例
Sub Macro1()
Range("F3:F22").Select
Selection.Copy
Range("J2").Select
ActiveSheet.Paste
Range("L2").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("M5").Select
End Sub
--------------------------------------------------------------------
Excel2016 Range("L3").Selectで[Delet]キー押した例
Sub Macro2()
Range("F3:F22").Select
Selection.Copy
Range("J3").Select
ActiveSheet.Paste
Range("L3").Select
Selection.ClearContents
Range("P7").Select
End Sub
-------------------------------------------------------------------
Excel2003/3010/2016共 Range("J3").Selectで[Esct]キー押した例
Sub Macro3()
Range("F3:F22").Select
Selection.Copy
Range("J3").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("N8").Select
End Sub
|