値のみの貼り付けなのですが…。

質問

シート間での値の貼り付けをしたいのですが教えて下さい。宜しくお願いします。
例えば、A社・B社・C社・集計シートがあった時、まずA社の数式の入っているセルB10・E10・G10の数値を集計シートのC4・C5・C6のセルに値のみ貼り付けて、次の行にB社、また次の行にC社をと上書きでなく、データが追加されるようにしたいのですが、できますでしょうか？

回答No.5

noname#123709 · ベストアンサー

＃1です。
下記を各シート上のボタンに登録。
個人的な意見ですが、内容が分かってから使われた方が良いかと。
Sub test()
Dim i As Long
Dim k As Integer
Dim j As Variant
j = Array("B10", "E10", "G10")
i = Sheets("集計").Range("C65536").End(xlUp).Offset(1).Row
For k = 0 To 2
Sheets("集計").Cells(i, 3).Value = ActiveSheet.Range(j(k)).Value
i = i + 1
Next k
End Sub

お礼

ありがとうございました。自分で設定したものだとどうしてもエラーが出て、進まなかったもので…。勉強し直します。

回答No.4

noname#123709

＃1です。
＞VBAを使ってもできないでしょうか？
質問で書かれている通りにしてみましたが・・・。
こういうことなのでしょうか？
Sub test()
Dim i As Long
Dim m As Integer, k As Integer
Dim j As Variant, l As Variant
j = Array("B10", "E10", "G10")
l = Array("Ａ社", "Ｂ社", "Ｃ社")
For m = 0 To 2
i = Sheets("集計").Range("C65536").End(xlUp).Offset(1).Row
For k = 0 To 2
Sheets("集計").Cells(i, 3).Value = Sheets(l(m)).Range(j(k)).Value
i = i + 1
Next k
Next m
End Sub

お礼

ありがとうございます。こんな感じなのですが、毎月どのシート（Ａ社、Ｂ社、Ｃ社）の登録があるかわからないので、それぞれ登録ボタンを作って、シート毎に登録をしたいのですが、可能でしょうか？Ａ社の登録ボタンを押したらＡ社のみ、Ｂ社の登録ボタンを押したらＢ社のみが集計シートに追加されるという感じです。

補足

ありがとうございます。こんな感じなのですが、毎月どのシート（Ａ社、Ｂ社、Ｃ社）の登録があるかわからないので、それぞれ登録ボタンを作って、シート毎に登録をしたいのですが、可能でしょうか？Ａ社の登録ボタンを押したらＡ社のみ、Ｂ社の登録ボタンを押したらＢ社のみが集計シートに追加されるという感じです。

回答No.3

noname#17648

自動では無理です。
シート名を
「A社」「B社」「C社」「集計」
とした場合
「集計」のC4に
=A社!B10
と入力すると
「A社」のB10が「集計」のC4に表示されると思います。
他のセルも同様です。

補足

VBAを使ってもできないでしょうか？

回答No.2

mu2011

ご期待と相違していましら無視して下さい。
１．コピー元セルを選択した状態（２番目以降のセルをＣＴＲＬキー押下しながら選択）のセル上で右クリックしてコピー
２．コピー先シートの対象セル上で右クリックして形式を選択して貼り付けで「値」と「行列を入れ替える」を選択して実行

回答No.1

noname#123709

形式を選択して貼りつけの演算「加算」でしょうか？
質問の意味がよく分かっていませんが。

補足

わかりにくくてすみません。加算ではありません。形式を選択して貼り付けの値のみで演算はしないです。