複数シート上の文字列を まとめてひとつのシートに返すには

Excelで複数シート上の同じセルにある
文字列をすべて　
１つのシートのひとつのセルにまとめたいのですが
できますか。

たとえは
シート１ 　　　C5 カレー
シート２ 　　　C5 とんかつ

累計用シート C5 カレー　とんかつ

このようにです。どうか教えてください。お願いします。

No.3 ベストアンサー 回答者： ka_na_de 回答日時： 2007/07/16 14:31

＃２のka_na_deです。

シートの数が12ですか、微妙な数ですね。
100とかなら迷わずVBAを選択しますが・・・

数式は長くなりますが、実際には入力は
= と　& " " &　だけで
& " " &はコピー＆ペーストの繰り返しです。
シート名はクリックすれば自動的に入ります。

この程度なら私は関数で行います。

１）= と入力
２）シート１のC5セルをクリック
３） & " " &　と入力
４）シート２のC5セルをクリック
５）　３）の部分をコピー＆ペースト
６）以下２）～５）を繰り返す。

この回答へのお礼

ありがとうございました。
この方法で、とりあえず
今のところのシート数(3枚)でやって
みました。できました。
12枚になっても面倒だけどきっと
できるはずですね。
ありがとうございました。

お礼日時：2007/07/16 19:13

No.4 回答者： imogasi 回答日時： 2007/07/16 14:48

関数では１２シートあれば、面倒

ユーザー関数を使うと
ツールーマクローVBE－挿入ー標準モジュールの画面に
Function conc(a As String)
Dim ws As Worksheet
s = ""
For Each ws In ActiveWorkbook.Worksheets
s = s & ws.Range(a) & " "
Next
conc = s
End Function
を入れて、セットしたいセルに
=conc("A1")
と入れる。
A1は「Excelで複数シート上の同じセル」といっているセル番地を””で囲って入れること。

この回答へのお礼

ありがとうございます。
とりあえずは今あるのは３枚のシート
だけなので、マクロを使わずにやって
みました。マクロってやったことないので。
もう少ししたあとで、
ＶＢＥを使ったやり方にも
挑戦してみたいなと
思います。
ありがとうございました。

お礼日時：2007/07/16 19:17

No.2 回答者： ka_na_de 回答日時： 2007/07/16 13:20

上記の例であれば、

累計用シートのC5セルで
=Sheet1!C5&" "&Sheet2!C5
と入力すれば可能です。

シートの数が増えるとこの方法では大変ですね。

この回答への補足

シートの数は１２です

補足日時：2007/07/16 13:27

No.1 回答者： fly_moon 回答日時： 2007/07/16 13:01

ピボットテーブル機能はいかがでしょう？

参考URL：http://www.atmarkit.co.jp/fwin2k/win2ktips/407pi …

この回答への補足

ん・・・
数字でなくて、文字列をそのまま
全部　返したいのですが、

不可能ですかね？

補足日時：2007/07/16 13:13