セルの値を別シートに Excel vba

今回は、セルの値を別シートのセルに代入する方法です。基本的な内容ですが、とても重要な要素が詰まっています。ポイントはActivateメソッドを使用する事。サンプルプログラムは下記になります。

Dim num as Long
Worksheets(“Sheet1”).Activate
num = Cells(1, 1).Value
Worksheets(“Sheet2”).Activate
Cells(1, 1).Value = num

このプログラムは、まず最初にActivateメソッドを使用して、「Sheet1」を作業中のシートにします。作業中にしてから、１行１列の値を変数に代入。
その後、再度Activateメソッドを使用して、「Sheet2」を作業中のシートに変更。その後、「Sheet2」の１行１列のセルに、変数「num」に代入した値を代入しています。
作業中のシートを切り替えるのが、重要なポイント！
いまどのシートが作業中なのかを意識できると、VBAで出来ることの幅が広がりますよ♪