マクロ記録でVBA
別のシートにコピーする

第6回.別のシートにコピーする

ここでは、「Sheet1」に100マスがあり、それを「Sheet2」へコピーします。

いまは、「Sheet1」が開いていて、セルA1がアクティブになっています。

１．マクロの記録

２．A1～J10を選択

３．コピー

４．「Sheet2」を選択

５．セルA1を選択

６．貼り付け

７．記録終了

作成されたマクロは、

この５行は、上の「マクロの記録」の、２．～６．にそれぞれ該当しています。

１つの操作が１行の記述になっています。

Sheets("Sheet2").Select

これは初めて出てきました。

Sheets(シート名)

これで、シート名のシートを指します。

そして、Select

これは、RangeのSelectと同じで、そのシートをアクティブにします。

つまり、そのシートを開いた状態にします。

では、「Sheet2」のA1～J10が選択されている状態で「Delete」して下さい。

全部消えましたよね。

そして、その状態で、再度このマクロを実行して下さい。

何か変ですよね。

「Sheet2」のA1～J10にコピーの点々が付いていて、100マスがコピーされません。

Range("A1:J10").Select
このような、RangeやCellsは、アクティブなシート（今開いているシート）のセルを指しています。

マクロを記録する時点で、「Sheet1」がアクティブだったので、

Sheets("Sheet1").Select
この記述が漏れているのです。

では、これを先頭に追加して、再度実行して下さい。

ちゃんとコピーされましたよね。

では、恒例の消しこみです。

今までの例で行けば、

Select、Selection、ActiveSheet、ActiveCell

は消せる事がわかります、これらを消してつなげると、

では実行して下さい。

何か、エクセルが怒っていますよね。

とても、冷たいお言葉をエクセルから頂きましたね。（笑）

「デバッグ」を押して下さい。

Sheets("Sheet2").Range("A1").Paste
の行が、黄色になっています。

つまり、この行はダメだと、エクセルが言っているのです。

逆に考えれば、１行目は良いとも言っています。

この状態を解除するには、

メニューの「実行」→「リセット」です。

では、何がどうダメなのでしょうか。

エクセルは不親切です、そこまで教えてくれません。

Pasteは、

シート.Paste

としか記述できないのです。

ですから、

Sheets("Sheet2").Select
Range("A1").Select
ActiveSheet.Paste
この部分は、省略できないのです。

つまり、

となります。

では、次は、値の貼り付けをやってみましょう。

「Sheet2」がアクティブな状態で、全て消しておきます。

１．マクロの記録

２．A1～J10を選択

３．コピー

４．「Sheet2」を選択

５．セルA1を選択

６．「形式を選択して貼り付け」→「値」→「OK」

７．記録終了

作成されたマクロは、

太字の部分が変わりましたよね。

まず、

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
　　　　:=False, Transpose:=False
の、最初の行の最後の部分の「 _」ですが、行の継続をしています。

つまり、１行だと長くなりすぎる場合に、複数行に分けて書くことが出来るのです。

空白１つあけて、「_」（アンダーバー）です。

そして、これが、値の貼り付けになります。

では消しこみをしましょう。

と言っても、最初の３行は、前と同じですし、後半は省略出来ない・・・

いいえ、この場合は省略できるのです。

行継続の位置をずらしてあります。

先ほどは、

Sheets("Sheet2").Range("A1").Paste

は、エクセルにダメだと言われたのですが、

Sheets("Sheet2").Range("A1").PasteSpecial

は、エクセルが「いいよ」と言ってくれます。

何故かって、・・・私に聞かないで・・・エクセルに聞いて（笑）

これと言った根拠は無いと思います、エクセルを作った人が、たまたまそうしたのだとしか言えません。

この件に関しては、そういうものだと覚えて下さい。

次回は、「.Copy」を使わずに、別の方法で、値をコピーしてみましょう。

いよいよ、VBAの深みに入っていきます。

ここが最初の山場です。

初心者のかなり多くが、ここを理解していないのです。

従って、応用が利かない。

セルの値をコピーする。

いたって基本であり、最も頻繁に使用するはずなのに、

ここの理解が足りていないのです。

これは、入門書と言われる書籍に問題があるのかも知れません。

（すみません、入門書は読んだ事ないので、はっきりとは言えません）

著者は当然分かっているのでしょうが、初心者を混乱させまいとして、

必要最小限の事しか書いていないのです。

しかし、先の原発問題もそうですが、情報不足はかえって危険な事もあります。

ここまで、私も初心者に不要と思われる事は、説明を省略してきました。

しかし、セルの値をコピーするという、極めて基本で重要な事は、しっかり説明します。

これを理解せずして、VBAの理解などあり得ないし、活用などできはしません。