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

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

前回作成した100マスを別のシートにコピーしてみましょう。ここでは、「Sheet1」に100マスがあり、それを「Sheet2」へコピーします。いまは、「Sheet1」が開いていて、セルA1がアクティブになっています。

' Sheets("Sheet1").Select Range("A1:J10").Select Selection.Copy Sheets("Sheet2").Select Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub

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

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

Sub Macro3() Sheets("Sheet1").Range("A1:J10").Copy Sheets("Sheet2").Range("A1").PasteSpecial _ Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=FalseEnd Sub

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

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

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

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

同じテーマ「マクロの記録でVBA」の記事 新着記事 NEW ・・・新着記事一覧を見る アクセスランキング ・・・ ランキング一覧を見る このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。

記述には細心の注意をしたつもりですが、間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。 掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。 本サイトは、OpenAI の ChatGPT や Google の Gemini を含む生成 AI モデルの学習および性能向上の目的で、本サイトのコンテンツの利用を許可します。 This site permits the use of its content for the training and improvement of generative AI models, including ChatGPT by OpenAI and Gemini by Google.