エクセルのマクロについて教えてください。

下記のマクロは別ブックの指定セル値を作業ブックに貼り付け出来るマクロとなっております。
この貼り付けを画像のように「値の貼り付け」「値と数値の書式（A）で
貼り付けが出来る方法を教えてください。
現状のマクロ
Sub 貼り付け()
Application.DisplayAlerts = False
Worksheets("受付").Range("B1:H47").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Application.DisplayAlerts = True

End Sub
以上となります。
よろしくお願いいたします。

No.1 ベストアンサー 回答者： kigoshi 回答日時： 2024/06/14 12:27

ご質問の意味がよく分かりませんが、「値の貼り付け」と「値と数値の書式張り付け」をなんかの条件で切り替えたい、ということでしょうか。

このソースでは、xlPasteValuesAndNumberFormatsとなっていますから、値と数値の書式を貼り付け、ですね。
値の貼り付けは、xlPasteValuesを指定すれば良いと思います。

https://learn.microsoft.com/ja-jp/office/vba/api …