VBA基本(自動記録だと)

まず、自動記録でSheet1のセル範囲をSheet2に転記させてみます。

まず、以下の操作を自動記録でマクロに記録してみます。

①: Sheet1を選択。$A$1:$D$3を選択。
②: 選択範囲をコピー。
③: Sheet2を選択。$A$1を選択。
④: コピーしてあるものを貼り付け。
⑤: コピーモード解除(Escキー)

このように、「Sheet2」に「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 >>----------------------------------------

こんな感じになります。

では、動作が正しいか確認してみましょう。
一旦、「Sheet2」に貼った内容を消して、マクロの起動で「Macro1」を起動させます。
記録したマクロを動かしてみる。

その、結果は、

このように記録時点を正しく再現しました。

ですが、これでは応用が利きませんね。セル間の転記などはマクロでもよくあることです。
以降にいろいろなケースでの説明をしますから、よく読んで下さい。