Excel VBA 貼付けマクロについて

こんにちは脇村です。僕のブログでは、本業での実務上のＥＸＣＥＬ、ＡＣＣＥＳＳマクロ＆ＶＢＡの使えそうなコードの紹介、コールドリーディングの実践例、電話占いでの現場、最近読んでいいなと思った本等について、主に発信していきたいと思っています。

今回はＥＸＣＥＬＶＢＡについて発信したいと思います。こういったプログラム系統は何を実現したいかを強く頭に描くことが実現への第一歩につながると思います。少しずつ発信していってその手助けができれば幸いだと思っています。今回はＥＸＣＥＬＶＢＡ貼付けのマクロについてです。

Ａ
Sheets(“請求先”).Select
Sheets(“請求先”).Range(“A1”, Range(“A65536”).End(xlUp)).Copy
Sheets(“当社”).Select
Sheets(“当社”).Range(“C1”).Select
Sheets(“当社”).Paste

Ｂ
Sheets(“請求先”).Range(“A1”, Range(“A65536”).End(xlUp)).Copy
Sheets(“当社”).Paste Destination:=Sheets(“当社”).Range(“C1”)

①は請求先sheetのセル番地A1から最後の行まで選択します。
②はコピー内容を請求先sheetのセル番地Ｃ１に貼り付けます。
ＡとＢでは結果は同じですがＡはsheetをあっち行ったりこっち行ったりで何か幼稚っぽい印象を受けます。Ｂで示したやり方でやった方がプログラム的にもかっこいいしコード数も減らせます。なのでＢのやり方で慣れた方が先々を考えると得だと思います。今回は貼付けについてのマクロでした。次回もまたよろしくお願いします。

資金調達はファクタリングで！【ネクストワン】

【エスコム】

コメントを残す コメントをキャンセル

コメントを残すコメントをキャンセル