【VBA道場】#3 セルをコピーする

ExcelVBA

【VBA道場】#3 セルをコピーする



問題

A1の値をA2に貼付けよ

 

完成見本

 

解答


Sub vba_doujyou_3()

  ’A1のセルをコピーし、B1のセルに貼り付ける
  Range("A1").Copy Destination:=Range("B1")
End Sub

 

サンプルファイル(マクロ有)

今回のマクロはこちらからダウンロードしてご使用いただけます。

 

解説

object.Copy Destination:=object
object:対象となるRangeオブジェクト

マクロの記録をすると以下のコードが出てくると思います。

Sub vba_doujyou_3()

  Range("A1").Select
  Selection.Copy
  Range("B1").Select
  ActiveSheet.Paste

End Sub

しかし、copyメソッドには貼り付け先を指定できるので、わざわざ4行分のコードを書かなくてもいいのです。
それが、「Destination」です。

引数「Destination」の後ろに貼り付け場所を指定してあげるだけで、コピー&ペーストが完了します。

今回の場合は

Range("A1").Copy      ’A1のセルの値をコピー
Destination:=Range("B1")  ‘B1のセルに貼り付け

というようになっています。

 

おわりに

今回はセルのコピーについて勉強しました。

「Direction」は、実行速度も早く、ソースコードも短くなるので是非マスターしましょう。
今日はここまで!

 

おすすめ参考書

Amazon

たった1秒で仕事が片付くExcel自動化の教科書

いちばんやさしいExcelVBAの教本

ExcelVBA逆引き辞典 パーフェクト

 

楽天

いちばんやさしいExcelVBA

 

すらすら読めるExcelVBA

[商品価格に関しましては、リンクが作成された時点と現時点で情報が変更されている場合がございます。]

スラスラ読めるExcel VBAふりがなプログラミング [ リブロワークス ]
価格:2035円(税込、送料無料) (2021/4/22時点)

楽天で購入

 

 

VBA逆引き大辞典

[商品価格に関しましては、リンクが作成された時点と現時点で情報が変更されている場合がございます。]

Excel VBA逆引き辞典パーフェクト第3版 [ 田中亨 ]
価格:2838円(税込、送料無料) (2021/4/22時点)

楽天で購入

 

 

タイトルとURLをコピーしました