Excel Sheet を自動、セルにも自動でデー

質問

自動でできるのであれば、こういう事がしたいのですが、
初心者レベルでもできる方法があれば教えて頂けませんか。

＜例＞
・Sheet1：氏名、住所が書かれたリストがあります
・Sheet2：個人ファイル的な表があります

・Sheet2の表のセルに、Sheet1の氏名を自動で表示し、
　Sheet1リストの氏名の数だけ、同じ表が書かれたSheetを自動作成したい。

■Sheet1
　　A列　　　B列
1　田中　　東京都
2　山田　　神奈川県
3　鈴木　　埼玉県

■Sheet2
　作成されている表のD3セルにSheet1のA1のデータ「田中」を自動で表記

■Sheet3
　Sheet2と同じ表のD3セルにSheet1の「山田」と自動表記された
　新しいSheetが自動で作成されるようにしたい

■Sheet4
　Sheet2と同じ表のD3セルにSheet1の「鈴木」と自動表記された
　新しいSheetが自動で作成されるようにしたい

Sheet1のリストと　Sheet2の表が別のファイルで有る方が
対応が簡単ならでも別のファイルでもかまいません。

宜しくお願いします。

回答No.1

imogasi

説明しようとする意向は伝わるが、良くわからない。
ーー
こういう説明でどうですか
Ｓｈｅｅｔ１　Ａ，Ｂ列
1　田中　　東京都
2　山田　　神奈川県
3　鈴木　　埼玉県
・・・・・
のデータが１行１人分という形である。
この個人名を
Ｓｈｅｅｔ２　Ｄ３セルに　田中
Ｓｈｅｅｔ２　Ｄ３セルに　山田
Ｓｈｅｅｔ４　Ｄ３セルに　鈴木
・・・
の各シートを作りたい
Ｓｈｅｅｔ２、Ｓｈｅｅｔ３、Ｓｈｅｅｔ４・・側でＳｈｅｅｔ１の１行目（のＡ１）、Ｓｈｅｅｔ１の２行目（のＡ１）、Ｓｈｅｅｔ１の３行目（のＡ１）、・・・
をとれば良いのだが、Ｘ行目に１，２，３とシートとの対応を取るのが難しい。
やむを得ずＶＢＡでユーザー関数を使ってシートのＩＮＤＥＸ番号を使うとするか、Ｓｈｅｅｔ２以下のシートのどこかＡ１に１，２，３の連番を振るならできる。（これも１回の操作では出来ないと思う。ＶＢＡならできるが）
後者の方法なら、
Ｓｈｅｅｔ２のＡ１に１
Ｓｈｅｅｔ３のＡ１に２
Ｓｈｅｅｔ４のＡ１に３
・・
を入れる。
Ｓｈｅｅｔ２，Ｓｈｅｅｔ３、Ｓｈｅｅｔ４、・・・のシートタブをクリックして（「作業グループ」にして）、Ｓｈｅｅｔ２のＢ２（何処でも良いが）に式
=INDIRECT("Sheet1!A" & A1)
と入れる。（作業グループはわかりますか、判らなければ「エクセル　作業グループ」でＧｏｏｇｌｅ照会のこと）
すると
Ｓｈｅｅｔ２のＢ２　田中
Ｓｈｅｅｔ３のＢ２　山田
Ｓｈｅｅｔ４のＢ２　鈴木
・・
がセットされる。
住所は
Ｓｈｅｅｔ１以外の全シートを作業グループにして、（人数分シートを増やしておいて）
=VLOOKUP(B2,Sheet1!$A$1:$B$10,2,FALSE)
という関数をＳｈｅｅｔ２上で入れると良い。
ここで早く作業グループを解除しておかないと、変なことになる可能性があるから注意すること。
シートを別にして（変えて）表を作ると、数式の複写が思うように出来ずこのように複雑になる。
＝＝＝
本来はＶＢＡでやるべき事項。