VBA 指定した範囲の値のみコピーする

Question

前提・実現したいこと

エクセルの指定したシートの範囲を指定して、値のみ別シートにコピーしたい。

発生している問題・エラーメッセージ

コピーしたいシートには、セルに関数が入っているので、値のみ貼り付けを行いたい。
コピーしたい範囲は、(A1:BB81)です。

該当のソースコード

Sub サンプル()
    Sheets("見積書").Copy
End Sub

試したこと

インターネットで検索してみて、同じブック内でのコピーはあるようですが、別ブックでのコピーが見つけられませんでした。また、範囲を指定して別ブックで値のみというのが探せませんでした。
よｔよろしくお願いします。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Comments

[kikukiku]

下記を見てください
https://excel-ubara.com/excelvba1/EXCELVBA341.html

[meg_]

> インターネットで検索してみて、同じブック内でのコピーはあるようですが、別ブックでのコピーが見つけられませんでした。また、範囲を指定して別ブックで値のみというのが探せませんでした。
どんなキーワードで検索しましたか？

Answer 1

参考リンクをあげておきます
セルのコピー&値の貼り付け（PasteSpecial）

Worksheets("Sheet1").Range("A1:B10").Copy
Worksheets("Sheet2").Range("A1").PasteSpecial _
　　　　　　　　　　　　　　　　 Paste:=xlPasteValues, _
　　　　　　　　　　　　　　　　 Operation:=xlNone, _
　　　　　　　　　　　　　　　　 SkipBlanks:=False, _
　　　　　　　　　　　　　　　　 Transpose:=False

ブックからブックへの貼り付け

With Workbooks.Open("貼り付けたいブック.xls")
    '「貼付元」シートを全部コピー
    .Worksheets("貼付元").Cells.Copy
    'このブックの「貼付先」シートへ値貼り付け
    ThisWorkbook.Worksheets("貼付先").Range("A1").PasteSpecial _
        xlPasteValuesAndNumberFormats
    'コピー中状態を解除
    Application.CutCopyMode = false
    'ブックを保存せずに閉じる
    .Close False
End With

Answer 2

エクセルでは、コピーするときは単にコピー。
貼り付けるときに、形式を選択して貼り付け→値のみ
とします。

その操作を、まずはマクロの記録という機能でVBAのコードとして記録してもらって、
コードを探ることが可能になります。
まずはそこからやってみてください。
当然別のブックへもコピペできます。

Answer 3

コピーした後に、関数を値に変換する方法です。

Sub サンプル2()
    Sheets("見積書").Copy
    Range("A1:BB81").Value = Range("A1:BB81").Value
End Sub

Comments

[Mkasai]

ありがとうございました。
今回指定した範囲外のところに、マクロボタンを複数配置しているのですが、このボタンが一緒にコピーされてきました。
マクロボタンはコピーされないようにする方法はありますでしょうか。
よろしくお願いします。

[TanakaHiroaki]

最初にコピー先シートを作成しておき、元のシートの範囲選択コピー＆ペーストで実現できます。
この方法は、ペースト時に値変換する必要があります。

[Mkasai]

ありがとうございました。
値変換というのがよくわからなかったので、
Sub サンプル2()
Sheets("見積書").Range("A1:BB81").Copy
Range("A1:BB81").Value = Range("A1:BB81").Value
End Sub

としてみたのですが、コピー箇所が囲われただけで動きませんでした。
教えていただいたように、ボタンを押すとシートが立ち上がっていたので希望の動きだったのですが、
コピーしたくない箇所をどうしたらいいのかまだ悩んでいます。
よろしくお願いします。

[TanakaHiroaki]

値変換とは値の貼り付け、radames1000さんが回答されたリンク先には詳しい説明があります。