【VBA】別シートに値貼り付けをする

りんかんです。

VBAで別シートに貼り付けをしようとしたら「値」ではなく「数式」での貼り付けになってしまって少し困ったのでメモします。

Sub 最終()

Dim r
Dim last
Dim syukei

Set r = Columns(2).Find(“”, , xlValues, 1)
r.Select

last = ActiveCell.Offset(-1, 6).Address
MsgBox last
Range(“B4:” & last).Select
Selection.Copy

Set syukei = Workbooks.Open(“稼働集計.xlsm”)

××××値での貼り付けが出来ず、数式での貼り付けになってしまう××××
× syukei.Worksheets(17).Range(“B3”).select
× ActiveSheet.Paste

××××エラー表示になる

× syukei.Worksheets(17).Range(“B3”).select
× ActiveSheet.Paste:=xlPasteValues

〇〇これでOK
〇 syukei.Worksheets(17).Range(“B3”).PasteSpecial Paste:=xlPasteValues

End Sub

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

にほんブログ村 写真ブログ 女性カメラマンへ
にほんブログ村