excelでデータの集計

質問

excel2000での質問です
例えば同じexcelのファイルで
シート１にAさんが、決まったフォーマットで入力するとします。項目は　名前、日付、訪問先・・etcです。(数値ではありません)
そしてシート２にBさんが同じフォーマットで入力。シート３にはCさんという具合に入力します。
そして最後にシート４にAさんＢさんＣさん全てのデータを同じフォーマットで統合したいのです。
しかしＡ、Ｂ、Ｃさんはそれぞれ随時(毎日)更新しているので、それぞれが自分のシートに入力するだけで自動的にシート４も入力（更新）されていくようにしたいのです。簡単そうだと思い色々調べてみたのですがうまくいきませんでした。最終的にコピ＆ペ－ストすればいいだけなのかもしれませんが、もし可能ならと思いまして。
説明が下手で申し訳ありません。
どなたか詳しい人教えてください。

回答No.8

nishi6 · ベストアンサー

＞やっぱりマクロですかね
チョッと作ってみました。ThisWorkBookに貼り付ければ動きます。(Excel2000)

しかし完全な粗悪品です。質問に書かれている機能は完全に満たしていますが、Sheet1～3に
（１）訂正ができない
（２）消去ができない
（３）挿入ができない
（４）削除ができない
（５）他にコピー操作ができない
のが欠陥です。
『訂正』については、もう数行追加すれば可能です。
『消去』、『コピー』についてもなんとかなりそうですが、かなり長くなるでしょう。
しかし、行の『挿入』特に『削除』もできるようにするには・・・・もしできても不安定で、余り効果が見込めないような気がしますね。(他の回答者に期待しましょう)
入力者に操作制限を押し付けたくないし、多分、Accessあたりで作り直すと思います。

↓ここから
Const ct = 3 '項目数をセットする

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
　　If Target.Cells.Count <> 1 Then Exit Sub '単一セルに入力のみ以下で処理する

　　Dim rw123 As Long 'シート1、2、3の入力行
　　Dim rw4 As Long 'シート4の出力行
　　With Sh
　　　　If .Name = "Sheet1" Or .Name = "Sheet2" Or .Name = "Sheet3" Then
　　　　　　If Target.Column = ct Then '最後の項目に入力したら更新する
　　　　　　　　Application.EnableEvents = False 'Chengeイベントを止める
　　　　　　　　rw123 = Target.Row '入力行
　　　　　　　　With Worksheets("Sheet4")
　　　　　　　　　　rw4 = .Range("C65536").End(xlUp).Row + 1
　　　　　　　　　　.Range(.Cells(rw4, 1), .Cells(rw4, ct)) = _
　　　　　　　　　　　　　　Sh.Range(Sh.Cells(rw123, 1), Sh.Cells(rw123, ct)).Value
　　　　　　　　End With
　　　　　　　　Application.EnableEvents = True 'Chengeイベントが起きるようにする
　　　　　　End If
　　　　End If
　　End With
End Sub
↑ここまで

＞ちょっと今回はexcelにこだわってるんですよ
Excelで対応するとしたら、Sheet1～3に入力した時、入力時刻(そのデータを最初に入力した時分秒)を自動的にセットするようにしておき、統合したデータを見たい時にSheet1～3を1つのシートにして入力時の時刻でソートするようなマクロを作ると思います。

ご参考に。

お礼

どうもありがとうございます
これを参考に自分で勉強してがんばってみます。
またよろしくお願いします