エクセルでシート毎に分かれたデータをひとつのシートに統合する方法

質問

宜しくお願いします。

ひとつのエクセルのブックの中で、シート毎に記入者を分け、記入しています。
大変便利なのですが、このシート毎に分かれたデータのまとめシートを作り、並び替え等出来るのでしょうか？
各シートのページ構成は全く同じで、中のデータだけが各人違うというものです。

セル参照でシートをまたぐなどして利用いましたが、そうすると各人のデータが増えた時に対応できません。

図解させて頂くと、

Aさんのシート
Aさん　　出張費　　　\25,000　　6月1日
Aさん　　交際費　　　\88,000　　6月30日

Bさんのシート
Bさん　　取材費　　　\28,000　　6月15日
Bさん　　交通費　　　\2,300　　 7月1日

まとめシート
Aさん　　出張費　　　\25,000　　6月1日
Bさん　　取材費　　　\28,000　　6月15日
Aさん　　交際費　　　\88,000　　6月30日
Bさん　　交通費　　　\2,300　　 7月1日

という風に、日付けなどで並び替えができ、しかも各人のシートの記入行が増えても対応したいのです。

ややこしい質問かもしれませんが、どうぞ宜しくお願い致します。出来ればすごく助かります！

回答No.6

imogasi

エクセル「統合」機能の「統合元データとリンクする」を使えないか検討してみてください。値の変更には対応するようです。
行増減対応が難しいかもしれない。
「統合」はメニューの「データー統合」の統合です。
その際に、各入力者の各行に固有（重複無しユニーク）の番号をA列に振り合計されないようにします。
Sheet1
10001 2006/1/1 12
10002 2006/2/1 13
Sheet2
20001 2005/2/1 1
20002 2006/7/2 2
20003 2006/5/12 3
Sheet3のA2をポイントし
データー統合　
合計
Sheet1!$A$2:$C$4
Sheet2!$A$2:$C$4
左端列
ーー
結果
Sheet3のA2をポイントした場合
10001 2006/1/1 12
10002 2006/2/1 13
20001 2005/2/1 1
20002 2006/7/2 2
20003 2006/5/12 3
ーーー
VBAでやっても、行増減即時反映というのは作り方が難しいと思う。

回答No.5

tom0120

No1です

みなさん。説明されていますが、実際にやりたいことが、十分、正確に理解できませんので、こまかく、式がかけませんが、

みなさんのように、
「VBA(プログラム)」で、作成することが、簡単です。
または
「マクロ(自動処理)」
です。
http://kiyopon.sakura.ne.jp/sousa/index.html

マクロの使い方は、こんな感じです。
私も、「マクロ」または「VBA(プログラム)」簡単だと思います。

回答No.4

merlionXX

各シート内のデータ位置がわからないので仮定で書きます。

各シートのA列に氏名、B列に費目、C列に金額とし、
各シートの1行目は項目でデータは2行目以下にあり、途中に空白行は無いものとします。

以上の前提でマクロで処理します。
簡単ですから以下の手順を試してみてください。

1.Altキー+F11キーを同時に押してVisualBasicEditorを呼び出します。

2.メニューから「挿入」、「標準モジュール」で出てきたコードウィンド（右側の白い広い部分）に以下のコード（Sub～End Sub）をコピペします。

Sub TEST()
Set ns = Sheets.Add
ns.Move After:=Sheets(Sheets.Count)
For i = 1 To Sheets.Count - 1
With Sheets(i)
.Range(.Range("A2"), .Range("A2").SpecialCells(xlLastCell)).Copy
End With
lr = ns.Cells(ns.Rows.Count, "B").End(xlUp).Row + 1
ns.Cells(lr, "A").PasteSpecial
Application.CutCopyMode = False
Next

ns.Range(Range("A2"), Range("A2").SpecialCells(xlLastCell)).Sort _
Key1:=Range("D2"), Order1:=xlAscending, Key2:=Range("A2") _
, Order2:=xlAscending, Key3:=Range("C2"), Order3:=xlAscending

End Sub

3.Alt+F11キーでワークシートへもどります.

4.メニューから、ツール、マクロ、マクロで出てきたマクロ名（TEST01）を選択して実行

これで新しいシートが追加され、そこに各シートのデータが日付順に張り付きますので、あとはお好きなように並べ替えて下さい。

回答No.3

ipsum11

VBAでやるのはどうでしょう。
詳細は、ここで検索してみてください。
似たような回答が出てくるんじゃないですか。

回答No.2

noname#123709

標準モジュール内に貼り付けて実行すればいけるはず・・・。
条件
1.集計するシートの名前が例では「集計」
2.集計するシートと各人の入力用シートだけのシート構成
3.集計するシートがオブジェクト名上で先頭

Sub 集計()
Dim i As Integer
Dim j As Integer
Range("A2:C" & Range("C65536").End(xlUp).Row + 1).Clear
For i = 2 To Sheets.Count
For j = 2 To Sheets(i).Range("C65536").End(xlUp).Row
Sheets(i).Rows(j).Copy Destination:=Sheets("集計").Rows(Range("C65536").End(xlUp).Row + 1)
Next j
Next i
Range("C2").Sort Key1:=Range("C2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin
End Sub

回答No.1

tom0120

新規にシートを追加して、この新規のシートで、集計。統合。なんでもできます。

セルを参照して計算をするとき、ほかのシートのセルを参照することができます。

「シート名」と
「セル番号」で

参照するセルを指定します。

シート１のセルE2は
「Sheet1!E2」です。

補足

質問の書き方が悪かったようですね。
参照はシートをまたいで可能だと思うのですが、そうすると各人のシートの記入項目が増えた時に対応できないですよね？
各人の項目の数など関係なしに、記入したら記入しただけまとめシートにコピー（というか参照というか）され、それらが日付け毎に並び替わる、ということをしたいのです。

回答ありがとうございます。