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

質問

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

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

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

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

回答No.3

ka_na_de · ベストアンサー

＃２のka_na_deです。

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

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

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

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

お礼

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

回答No.4

imogasi

関数では１２シートあれば、面倒
ユーザー関数を使うと
ツールーマクロー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で複数シート上の同じセル」といっているセル番地を””で囲って入れること。

お礼

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

回答No.2

ka_na_de

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

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

補足

シートの数は１２です

回答No.1

fly_moon

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

参考URL：

http://www.atmarkit.co.jp/fwin2k/win2ktips/407pivokushi/pivokushi.html

補足

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

不可能ですかね？