シートが2つあり、「Sheet1」の方には$A$1:$D$3の範囲に「値」があります。「値」は判りやすいように、そのセルのアドレスそのものにしました。この後、この章ではこれを題材にして説明していきます。
まず、以下の操作を自動記録でマクロに記録してみます。
Option Explicit
Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2004/11/21 ユーザー名 : 井上治
'
'
Sheets("Sheet1").Select
Range("A1:D3").Select
Selection.Copy
Sheets("Sheet2").Select
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
'***************************************************************************************************
' マクロの記録にコメントをつけたところ Module1(Module)
'
' 作成者:井上治 URL:https://www.ne.jp/asahi/excel/inoue/ [Excelでお仕事!]
'***************************************************************************************************
'変更日付 Rev 変更履歴内容------------------------------------------------------------------------>
'04/11/21(1.00)新規作成
'***************************************************************************************************
Option Explicit
'***************************************************************************************************
'* 処理名 :Macro1
'* 機能 :テストマクロ(自動記録)
'---------------------------------------------------------------------------------------------------
'* 返り値 :(なし)
'* 引数 :(なし)
'---------------------------------------------------------------------------------------------------
'* 作成日 :2004年11月21日
'* 作成者 :井上 治
'* 更新日 :2004年11月21日
'* 更新者 :井上 治
'* 機能説明:
'* 注意事項:
'***************************************************************************************************
Sub Macro1()
'-----------------------------------------------------------------------------------------------
' Sheet1を選択
Sheets("Sheet1").Select
' $A$1:$D$3を選択(記録は相対参照記述)
Range("A1:D3").Select
' 選択範囲をコピー
Selection.Copy
' Sheet2を選択
Sheets("Sheet2").Select
' $A$1を選択(記録は相対参照記述)
Range("A1").Select
' コピーしてあるもの(クリップボード)を貼り付け
ActiveSheet.Paste
' コピーモード解除(Escキー)
Application.CutCopyMode = False
End Sub
'----------------------------------------<< End of Source >>----------------------------------------