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

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

No.5 ベストアンサー 回答者： noname#123709 回答日時： 2006/04/05 11:10

＃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

この回答へのお礼

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

お礼日時：2006/04/05 11:21

No.4 回答者： noname#123709 回答日時： 2006/04/05 09:56

＃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

この回答への補足

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

補足日時：2006/04/05 10:53

この回答へのお礼

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

お礼日時：2006/04/05 10:47

No.3 回答者： noname#17648 回答日時： 2006/04/04 18:48

自動では無理です。

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

この回答への補足

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

補足日時：2006/04/04 19:46

No.2 回答者： mu2011 回答日時： 2006/04/04 17:47

ご期待と相違していましら無視して下さい。

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

No.1 回答者： noname#123709 回答日時： 2006/04/04 17:05

形式を選択して貼りつけの演算「加算」でしょうか？

質問の意味がよく分かっていませんが。

この回答への補足

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

補足日時：2006/04/04 17:08