[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『値貼り付け』(しほ)
タイトル通りなんですが、
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していてうるさいので、無くした例なぞ。
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.