[[20200519165432]]　『最終行の下に貼り付けする方法』（ジャック）　ページの最後に飛ぶ

『最終行の下に貼り付けする方法』（ジャック）

初心者です。
１、AAAファイルの　桃シートの　C8～F8の値が入っている
一番下までコピーして　まとめ　ファイルのM3セルから
値で貼り付けます。

２、AAAファイルの　りんごシートの　
C8～F8の値が入っている一番下までコピーして　
まとめ　ファイルのM列の１の最終行の次のセルから貼り付けしたいのですが

どのようにしたらよいでしょうか。
このあと　BBBファイル、CCCファイルと続いていきます。
宜しくお願い致します。

    Workbooks.Open Filename:= _
        "AAA.xlsx" _
        , UpdateLinks:=3
    Sheets("桃").Select
    Range("C8:F8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("まとめ.xls").Activate
    Range("M3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.SmallScroll Down:=36

    Windows("AAA.xlsx").Activate
    Sheets("りんご").Select
    ActiveWindow.SmallScroll Down:=-3
    Range("C8:F8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy

    ・・・・・・・

＜使用 Excel：Excel2013、使用 OS：Windows10 ＞

直接の回答ではありませんが。

■１
VBAの世界では、基本的にブックやシート、セルなど（オブジェクトといいます）を明示すれば、いちいちアクティブにしたり、選択したりする必要はありません。

また、標準モジュールで、シートを省略した場合、ActiveSheetを指定したものとして扱われますので、上記と合わせて、シートを明示的に指定するようにしたほうがよいとおもいます。

■２
PasteSpecialメソッドの「Operation:=xlNone, SkipBlanks:=False, Transpose:=False」は全部規定値ですから、記述を省略することが可能です。

■３
とりあえず、↑を踏まえてコードを整理したほうが、後々見やすい（＝メンテナンスしすい）ものになるとおもいます。

■４
まとめ”ブック”のまとめ用【シート】に転記したときに、由来のブックやシートが分かるようにしておいたほうがよくないですか？
（書いてある内容で、分かるようになっているのでしょうか？）

（もこな２） 2020/05/19(火) 17:46

コメント返信：

[ 一覧(最新更新順) ]

[[20200519165432]] 『最終行の下に貼り付けする方法』（ジャック） ページの最後に飛ぶ

[[20200519165432]]　『最終行の下に貼り付けする方法』（ジャック）　ページの最後に飛ぶ