エクセルのブック間で値のみコピー

質問

エクセル　２００３使用です。

エクセルのブック間におけるシートのコピーについてお願いします。

Book.Ａのシート１の各セルは、関数の数式で入力（出力）されています。

このシートをコピーして、Book.Ｂにペーストしたいのですが、
コピーは、関数計算後の”結果の文字列”で行いたいです。

Book.Ａのシート全体をコピーして
Book.Ｂのシートに「形式を選択して貼り付け」　→　「値」

で可能なのですが、シート数が多いので困っています。

Book.Ａのシートタブを右クリックして「移動またはコピー」で
シートのコピーをすると、数式でコピーされてしまいます。
この方法で、値のみコピーのような方法はありませんでしょうか？

よろしくお願いします。

回答No.2

K Kazz（@JazzCorp） · ベストアンサー

まず、入出力（マクロブックも）は全て同じフォルダだとして、
単純にマクロブックにコピーしてイイのか？
処理対象が複数（ファイル）あって、それぞれ別のブックに出力したいのか？？
その場合は、ブック名を解決する必要がある。（予めシートに設定しておくとか）
それと、書式もイラナイ？？？

Option Explicit
Sub SmplestCopy()
Const xFrom = "FromA.xls"
Const xUnBelivableName = "The simplest way!!"
Const xKey_Col = 1 'キー列番号
Const xHeads = 1 '見出しの行数
Dim xSheet As Worksheet
Dim xPath As String
Dim xName As String
Dim xLast As Long
Dim kk As Long
Dim mm As Long
Dim nn As Long
On Error Resume Next
Debug.Print vbNewLine & Now & " ：Now！"
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Worksheets(1).Name = xUnBelivableName
xPath = (ThisWorkbook.Path & "\")
ChDrive (xPath)
ChDir (xPath)
If (ThisWorkbook.Name <> xFrom) Then
With Workbooks.Open(xPath & xFrom)
For Each xSheet In .Worksheets
xLast = xSheet.Cells(Rows.Count, xKey_Col).End(xlUp).Row
If (xLast > xHeads) Then
Else
MsgBox ("No Data Found!!")
End If
xName = xSheet.Name
With ThisWorkbook
.Worksheets(xName).Delete
.Worksheets.Add After:=.Worksheets(.Worksheets.Count)
.Worksheets(.Worksheets.Count).Name = xName
Application.CutCopyMode = False
xSheet.UsedRange.Copy
.Worksheets(.Worksheets.Count).Range("A1").PasteSpecial xlPasteValues
End With
Next
ThisWorkbook.Worksheets(xUnBelivableName).Delete
.Close (False)
End With
Else
MsgBox ("別のブックで実行してね！")
End If
Epilogue:
Set xSheet = Nothing
Application.CutCopyMode = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

お礼

JazzCorp　さま　ありがとうございます。
返事が遅くなり申し訳ございまぜん。

コード貼り付けたらできました
ありがとうございました！

回答No.3

Nouble

シートタブで複製可能という事なので
「事前に用意されているシートに貼り付ける」
と、いう可能性は無いものと思いました。

で、困っている点としては
BookA側コピー対象シートが多すぎて手間だ。
と、言う事だと思います。

何のことはない作業グループを組んで
その状態で表に現れたシートの全セルを選んでコピー
BookBの先頭シートを選んで
形式を選んで値のみ、又は値と書式のみコピー
(※注:その他でも可)
これで複数シートが一括でコピーされますよ。

但し、
BookB側のシート数が少ない場合は保証外です (^_^;)

如何でしょうか？
お役に立てていたならば幸いです。

Excelの作業グループ
http://www.relief.jp/itnote/archives/000144.php

http://www.hello-pc.net/howto-excel/sagyougroup/

お礼

Nouble　さま　ありがとうございます。
返事が遅くなり申し訳ございません。

作業グループで、BookAで全範囲を選択し、
BookBでも同じシートの数だけ作業グループに指定しておくと
できました。

（先頭シートだけですと、領域が違うというエラーがでました）

先に同じBookBに同じ名前のシートを用意していればOKですね。

この方法は気づいていませんでした。

ありがとうございました。

回答No.1

bin-chan

ＶＢＡを利用して

１）Book.ＡをコピーしてBook.Ｂを作る。
２）Book.Ｂですべてのシートに対し３）以降をループ
３）　対象シートをコピーして自身に「形式を選択して貼り付け-値」

を作ったほうが早いと思います。

お礼

bin-chanさま　早速のご回答ありがとうございました。

やっぱり、VBAでやらないとダメですね。

B自身に「形式を選択して貼り付け-値」参考になりました。
ありがとうございました^^