EXCEL データの各シートへの振り分け

質問

エクセルの1枚目のシートをデータシートとして、各行に入力していきます。
各行の第1列の数字や言葉に基づいて、2枚目以降のシートに順にコピーさせる方法があるでしょうか

具体的には1枚目のシートはデータシートとして
部門　氏名　住所　
人事　田村　東京
総務　太田　京都
人事　山田　大阪

2枚目のシートの名前は「人事」3枚目は「総務」で各シートに行ごとコピーさせたいのです

マクロはよくわからないのと最初に開くときに面倒なので、なるべく関数で処理する方法を教えてください。

回答No.1

noname#96418 · ベストアンサー

質問者さんの意図とは少し違いますが、次のような簡単な方法があります。適当な回答がなければ、ご検討ください。

（１）2枚目以降のシートで　=sheet1!A1　などとして、1枚目のシートの該当するセル範囲（これから入力される可能性のある部分を含む）のデータをすべて取り込む
（２）オートフィルタで望みの行だけ表示する
（３）1枚目のデータが増えたり変更されたりしたら、フィルタの「再適用」（2007ではボタンあり）をして最新の結果を得る

（2007とその97-2003互換モードで確認しました。）

お礼

ありがとうございました
なるほどと思います。参考にさせていただきます。

回答No.2

imogasi

この質問の内容は、ＶＢＡ向きです。
＞マクロはよくわからないのと
エクセルで、操作で出来そうに無いことで、何かやりたいことを実現するには、ＶＢＡを勉強してください。勉強しないで、楽したいこと、難しいことをやりたいといっても、無理です。
＞最初に開くときに面倒なので
何のことだかわかりません。
ーーーー
入力の都度でなく、一応入力が終わってからなら、
フィルターを行い、コピー貼り付けを繰り返す
フィルタオプションの設定を繰り返す
ソートして区分ごとにコピー貼り付けを繰り返す
部門ごとの連番を振って関数で処理する（下記。自称　imogasi方式）
ーーーーー
例データ
Ａ列　　Ｂ列　　　Ｃ列　　　Ｄ列
コード 内容 計数 連番
人事 x 12 1
営業 y 21 101
総務 z 31 201
人事 u 41 2
人事 v 42 3
営業 s 43 102
総務 t 12 202
総務 v 12 203
人事 ｗ 12 4
ーー
どの列でもよいが（各部１００人以内と仮定する）
Ｈ列　　Ｉ列
人事 0
営業 100
総務 200
ーーーーーーー
Ｄ列の式は
=VLOOKUP(A2,$H$1:$I$3,2,FALSE)*1+COUNTIF($A$2:A2,A2)
下方向に式を複写。
各部別に、出現別に、連番を振っている。
ーー
Ｓｈｅｅｔ２で
Ａ２に
=INDEX(Sheet1!$A$1:$C$100,MATCH(ROW()-1,Sheet1!$D$1:$D$100,0),COLUMN())
Ｃ２まで式を複写。
Ａ２：Ｃ２を下方向に式を複写
結果
人事 x 12
人事 u 41
人事 v 42
人事 ｗ 12
#N/A #N/A #N/A
ーー
Ｓｈｅｅｔ３のＡ２で
=INDEX(Sheet1!$A$1:$C$100,MATCH(ROW()-1+100,Sheet1!$D$1:$D$100,0),COLUMN())
MATCH(ROW()-1+100とここで１００足していることに注意。
以下人事の場合と同じ。
総務の場合は２００を足す。
結果
営業 y 21
営業 s 43
#N/A #N/A #N/A
＃Ｎ／Ａを出さない方法の点は省略。imogasi方式でＧｏｏｇｌｅ照会すれば、何処かに書いている。

お礼

ありがとうございます
参考にさせていただきます
ＶＢＡを一応勉強し、ボタンを作ったり、若干編集もできるようにはなりましたが、能力不足やあまり使わないこともあって、なかなか使いこなせません。
それとそのブックを開くときにマクロを有効にするかどうか毎回聞かれるのがうっとうしいのです。作ったマクロが気に入ってすべてのブックに適応させたりすると、必要でないブックであっても開くときにいちいち聞いてきていらいらします。聞かれないよう設定できるのかもしれませんが、今のところその方法は不明です。
とにかく私の希望はマクロを使わないで済ませたいのです
imogasiさんのＶＢＡを使わないで済ませる方法を参考にしながら、なんとか作っていきたいと思います。
ありがとうございました