[[20190615111513]]　『(マクロ)コピーペーストについて』（マイン）　ページの最後に飛ぶ

『(マクロ)コピーペーストについて』（マイン）

いつもお世話になっております。

BOOK間のコピー＆ペーストについてアドバイスお願いします。

以下コードは

・非表示にしてある「Book1」のセル範囲を

・アクティブである「Book2」のセル範囲に追記

するコードです。

(コピー範囲について)

Book1のコピーセル範囲

・先頭行と列範囲・・・固定
・最終行・・・可変(最終行　d2　)

Book2の転記先範囲

・列範囲・・・・固定
・最終行・・・可変(最終行　r + 1　)で最終行の下空白セル基準に貼付け

(コードの部分)

　　　　'Book1　の指定範囲コピー

        shA_Exp.Range("A2:AI" & d2).Copy

        'Book2　の指定範囲に貼付け
        sh2.Range("A" & r + 1).PasteSpecial _
                Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

質問内容は

　　Book2.セル範囲.Value = Book1.セル範囲.Value

としたいと考えております。

この場合、Book1コピー元範囲を、Valueで貼り付ける場合に、範囲を維持したまま、Book2に貼り付ける方法が分かりませんでした。

皆様、どうかアドバイスの程よろしくお願いいたします。

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

追記

最終行のコードを忘れていましたのでアップします。

'転記元の最終行
d2 = shA_Exp.Cells(Rows.Count, 1).End(xlUp).Row

'転記先の最終行
r = sh2.Cells(Rows.Count, 1).End(xlUp).Row

（マイン） 2019/06/15(土) 11:33

Resize（d2. 固定の列数)です。

（マナ） 2019/06/15(土) 11:36

貼付先.Resize（d2. 固定の列数).value=コピー元.value

こうです。

（マナ） 2019/06/15(土) 11:39

マナさん　早速ありがとうございます。

試してみます。
（マイン） 2019/06/15(土) 11:40

マナさん　

出来ました

コピーデータ範囲を

転記先基準セルからResizeでデータ範囲を揃えて転記する

バッチリでした。
（マイン） 2019/06/15(土) 13:44

コメント返信：

[ 一覧(最新更新順) ]

[[20190615111513]] 『(マクロ)コピーペーストについて』（マイン） ページの最後に飛ぶ

[[20190615111513]]　『(マクロ)コピーペーストについて』（マイン）　ページの最後に飛ぶ