[[20171201143428]]　『列のデータを別ブックに』（ぽこ）　ページの最後に飛ぶ

『列のデータを別ブックに』（ぽこ）

よろしくお願いします。

ブック1（現在開いているブック）のシート1のA列B列のデータをブック２（マクロ内でWorkbooks.Openを使用して開いている状態）のシート１のE列F列にまるまるコピーしたいです。

ブック１のA列（A2～）をブック２のE列（E2～）、ブック１のB列（B2～）をブック２のF列（F2～）にコピーしたいです。

Workbooks.Openの部分はすでに記入済みのため、知りたい部分は上記で説明させていただいた部分のみです。
すでにブック２のE列F列に値が入っていたとしても気にせず上書きしたいです。

教えてください、お願いいたします。

＜使用 Excel：unknown、使用 OS：unknown ＞

 自動記録を使ってみてはいかがでしょうか？
http://www.asahi-net.or.jp/~ef2o-inue/vba_k/sub04_020.html
（bi） 2017/12/01(金) 14:51

 Sub TST()
    Dim C_BOOK  As Workbook
    Dim P_BOOK  As Workbook

    Set C_BOOK = ThisWorkbook
    Set P_BOOK = Workbooks.Open("C:\wk\book1.xlsm")

    C_BOOK.Worksheets("Sheet1").Range("A2:B1000").Copy P_BOOK.Worksheets("Sheet1").Range("E2")
 End Sub
 こんなのではどうか。
 上記でマクロの入っているブック(C_BOOK)からWorkbooks.Openで開いたブック(P_BOOK)へコピー・貼り付けを行う。

（ねむねむ） 2017/12/01(金) 14:57

コメント返信：

[ 一覧(最新更新順) ]

[[20171201143428]] 『列のデータを別ブックに』（ぽこ） ページの最後に飛ぶ

[[20171201143428]]　『列のデータを別ブックに』（ぽこ）　ページの最後に飛ぶ