[[20230430122116]]　『異なるブック間で、指定範囲をコピペするVBA』（おなか）　ページの最後に飛ぶ

『異なるブック間で、指定範囲をコピペするVBA』（おなか）

以下の異なるブック間で指定した範囲をコピー＆ペースト（値のみ）をVBAで一括実行する事は可能でしょうか？

ブックAシート1　列E 2～20　→　ブックBシート1　列E 2～20
ブックAシート1　列C 2～20　→　ブックBシート1　列F 2～20
ブックAシート1　列F 2～20　→　ブックBシート1　列G 2～20

できましたら、教えて欲しいです。
よろしくお願い致します。

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

マクロの自動記録はしてみましたか？
（MK） 2023/04/30(日) 12:35:18

 両方のブックが開いていることが前提ですが、一例です。
 Sub test()
     Dim wsA As Worksheet, wsB As Worksheet
     Set wsA = Workbooks("Book1").Worksheets("Sheet1")
     Set wsB = Workbooks("Book2").Worksheets("Sheet1")
     wsA.Range("E2:E20").copy wsB.Range("E2:E20")
     wsA.Range("C2:C20").copy wsB.Range("F2:F20")
     wsA.Range("F2:F20").copy wsB.Range("G2:G20")
 End Sub
（フォーキー） 2023/04/30(日) 12:36:23

元はこれか

[[20230428194132]]　『CSVからコピペ』（ぷりぷり）
（謙児） 2023/04/30(日) 13:48:49

 >コピー＆ペースト（値のみ）
 見落としてました。

    wsB.Range("E2:E20") = wsA.Range("E2:E20")
    wsB.Range("F2:F20") = wsA.Range("C2:C20")
    wsB.Range("G2:G20") = wsA.Range("F2:F20")

 に変更してください。
（フォーキー） 2023/04/30(日) 14:00:11

コメント返信：

[ 一覧(最新更新順) ]

[[20230430122116]] 『異なるブック間で、指定範囲をコピペするVBA』（おなか） ページの最後に飛ぶ

[[20230430122116]]　『異なるブック間で、指定範囲をコピペするVBA』（おなか）　ページの最後に飛ぶ