質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Q&A

解決済

1回答

2345閲覧

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

pomiw0000

総合スコア19

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

0グッド

0クリップ

投稿2021/09/07 09:53

前提・実現したいこと

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

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

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

該当のソースコード

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

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

pomiw0000

2021/09/07 11:31 編集

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

2021/09/07 11:57

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

2021/09/07 23:48

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

回答1

0

ベストアンサー

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

vba

1Sub test() 2 3 4 ' ブック("Book1.xlsx)のシート(“Sheet1”)をアクティブ 5 Workbooks("Book1.xlsx").Worksheets("Sheet1").Activate 6 ' アクティブなシートをコピーして、ブック("Test.xlsm")の1番目のシートの後に挿入 7 ActiveSheet.Copy after:=Workbooks("Test.xlsm").Sheets(1) 8 9 WIth ActiveSheet.UsedRange 10 .Value = .Value 11 End With 12 13End Sub

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

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

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

投稿2021/09/07 12:32

編集2021/09/08 04:29
hatena19

総合スコア33620

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

pomiw0000

2021/09/08 04:27 編集

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

2021/09/08 04:30

あっ、すみません。コード間違ってますね。 .Value = Value の部分を下記に修正してください。 .Value = .Value 回答のコードは修正しておきました。
pomiw0000

2021/09/08 04:43

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

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問