VBA:別ブックのシートをコピー

Question

前提・実現したいこと

エクセルマクロVBAを用いてエクセルブックのシートを別のエクセルブックにコピーしたいです。
以下のコードでシートをコピーはできたのですが、値のみだけのシートをコピーしたいです。(セルに関数などが含まれてしまっているため)

Rangeを使えば値のみをとってこれると分かったのですが、
Rangeで指定できるほどのセル数ではなく、かなり量が多いので無理があります。

以下のコードをどうやって編集すればいいかおしえていただきたいです。

該当のソースコード

Sub test()


' ブック("Book1.xlsx)のシート(“Sheet1”)をアクティブ
Workbooks("Book1.xlsx").Worksheets("Sheet1").Activate
' アクティブなシートをコピーして、ブック("Test.xlsm")の１番目のシートの後に挿入
ActiveSheet.Copy after:=Workbooks("Test.xlsm").Sheets(1)


End Sub

。

Comments

[pomiw0000]

内容は違います。閲覧回数を増やすという目的は一切ありません

[1T2R3M4]

質問について新たにわかったことや試したことがあれば、すでにある質問を編集してください。
と書いてありますが。

[pomiw0000]

また別の内容だったので、新しく投稿しました

Answer 1

以下のコードをどうやって編集すればいいかおしえていただきたいです。

Sub test()


    ' ブック("Book1.xlsx)のシート(“Sheet1”)をアクティブ
    Workbooks("Book1.xlsx").Worksheets("Sheet1").Activate
    ' アクティブなシートをコピーして、ブック("Test.xlsm")の１番目のシートの後に挿入
    ActiveSheet.Copy after:=Workbooks("Test.xlsm").Sheets(1)

    WIth ActiveSheet.UsedRange
        .Value = .Value
    End With 

End Sub

Rangeを使えば値のみをとってこれると分かったのですが、

Rangeで指定できるほどのセル数ではなく、かなり量が多いので無理があります。

UsedRangeを使えば難なく取得できます。

Comments

[pomiw0000]

ありがとうございます。実行してみると、valueのところが変数が定義されていませんというエラーがでてしまいます...

[hatena19]

あっ、すみません。コード間違ってますね。

.Value = Value
の部分を下記に修正してください。
.Value = .Value

回答のコードは修正しておきました。

[pomiw0000]

いただいたコードで実施をしたら、綺麗に値のみコピーをすることができました。
助かりました。
ありがとうございます。