[[20190624095111]] 『値貼り付け』(しほ) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『値貼り付け』(しほ)

タイトル通りなんですが、
e列の最終行の下にコピーしたセルを貼り付けるマクロを組んでます。
下記がそのコードになります。
Sub 貼り付け1()

    Sheets("Sheet1").Select
    Range("A2:B2").Select
    Selection.Copy
    Sheets("Sheet2").Select
    Range("e1").Select
    Selection.End(xlDown).Offset(1, 0).Select
    ActiveSheet.Paste
    End Sub
このActiveSheet.Pasteを値貼り付けに変えるには
どのように書き換えればいいでしょうか?
 マクロの記録から単純に
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks :=False, Transpose:=Falseを
入れ替えたのですがエラーが出ます。
みなさんよろしくお願いします。

< 使用 Excel:Excel2007、使用 OS:Windows7 >


エラーの場合、どんなエラーメッセージなのかを書くべきでしょう。 そして、ステップ実行することで、どの行を実行しようとするとエラーになるかも特定すべきです。 エラー原因は、思ったセルがSelectされていかなったせいですかね? 詳しく見てはいません。

とりあえず、いちいちSelectしていてうるさいので、無くした例なぞ。

 Sub test()
    Sheets("Sheet1").Range("A2:B2").Copy
    Sheets("Sheet2").Range("e1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
 End Sub
(???) 2019/06/24(月) 10:27

質問の答え自体は???さんが仰るとおりだとおもうので、箸休めに別アプローチを紹介。
    Sub さんぷる()
        With Sheets("Sheet1").Range("A2:B2")
             Sheets("Sheet2").Range("E1").Resize(.Rows.Count, .Columns.Count).Value = .Value
        End With
    End Sub

値のみコピーしたい場合は直接Valueプロパティを参照するという手もあります。

(もこな2) 2019/06/24(月) 18:28


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.