異なるシート間で｢値だけの貼り付け｣

締切済

質問者：暇人
質問日時：2015/05/05 14:26
回答数：5件

お世話様です。Ａシートの(Ａ２：Ｆ１０)をＢシートの同じ場所に値だけの貼り付けをしたいのですが現在は一行づつクリップボード経由でＢシートに張り付けるやり方をしています。仕方なく計算式もそのままコピーしています。計算結果の値だけ貼り付けることは可能でしょうか。できれば行単位でなく上記の範囲で一回で済ませたいのですが。上記範囲の中には計算式の入っていないセルも含まれます。宜しくお願いします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (5件)

最新から表示
回答順に表示

参考程度に

No.5

回答者： tom04
回答日時：2015/05/06 11:34

No.4です。

＞ひとつは別シートから名称を参照し、もうひとつはその名称を元にやはり別シートから数値を参照しているという数式ですが前者は空白に後者はゼロという値が返ってきました。

ん～～～
前回のコードはそのまま「値」を引っ張ってきていますので、
Sheet1のA2～F10セル結果そのものが「0」となっていませんか？
（参照先データが空白なので数式によって「0」が返っている）

その場合はVBA云々ではなく、IF関数等で「0」を返さない数式にする必要があると思います。

具体的にどのような結果を返しているのか判らないので、
こちらで判断できるといえばこのくらいです。

※　参考にならないかもしれませんが、
この程度でごめんなさいね。m(_ _)m

- 0
- 件

通報する

この回答へのお礼

とんでもないです。いろいろ勉強になってます。どうもありがとうございました。

通報する

お礼日時：2015/05/06 15:29

参考程度に

No.4

回答者： tom04
回答日時：2015/05/05 17:49

こんにちは！

一例です。標準モジュールにしてみてください。
Aシートは「Sheet1」
Bシートは「Sheet2」としています。

Sub Sample1()
Worksheets("Sheet1").Range("A2:F10").Copy
Worksheets("Sheet2").Range("A2").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub

とか

Sub Sample2()
Worksheets("Sheet2").Range("A2:F10").Value = Worksheets("Sheet1").Range("A2:F10").Value
End Sub

ではどうでしょうか？
※　Sample2の方が簡単だと思います。m(_ _)m

- 2
- 件

通報する

この回答へのお礼

ありがとうございました。やってみた結果ですが、数式を持つセルは二種類あり、ひとつは別シートから名称を参照し、もうひとつはその名称を元にやはり別シートから数値を参照しているという数式ですが前者は空白に後者はゼロという値が返ってきました。

通報する

お礼日時：2015/05/06 11:15

No.3

回答者： angkor_h
回答日時：2015/05/05 15:32

先ずは、そのexcelを開いた後、ウィンドウ→新しいウインドウを開く→並べて表示、と操作し、

シートAとシートBを同時に表示してください。
そして、シートBのA2セルに「=」を入力した後、シートAのA2セルをクリックすると、
シートBのA2セルは「=SheetA!A2」となり、その結果(シートAのA2セルの値)が表示されます。
シートBのA2セルを必要範囲にコピー(或いはドラッグ)すれば、その範囲が適用されます。
この場合、シートAの該当セルの値が変わればシートBの当該セルの表示も変わります。

シートBの内容をそのまま保存する場合は、その領域を選んで、コピー→形式を選択して貼り付け→値と形式(或いは値)を選べば、シートAの影響を受けなくなります。

####外していたらごめんなさい。