エクセルで作成した一覧表をカード形式にしたい。

Question

エクセルで作成した一覧表をカード形式にしたいのですが
例えばsheet1の
列１のセルＡ、Ｂ、Ｃ、Ｄ、Ｅ、Ｆに
山田さんの住所、氏名、年齢、職業、電話、備考
列２にセルＡ、Ｂ、Ｃ、Ｄ、Ｅ、Ｆに
佐藤さんの住所、氏名、年齢、職業、電話、備考、
列３にセルＡ、Ｂ、Ｃ、Ｄ、Ｅ、Ｆに
大山さんの…
（以降は同様の繰り返し）を入力したとき、
sheet2の
列１のセルＡ、Ｂに山田さんの住所、氏名、
列２のセルＡ、Ｂに山田さんの年齢、職業、
列３にセルＡ、Ｂに山田さんの電話番号、備考、
列４にセルＡ、Ｂに佐藤さんの住所、氏名、
列５にセルＡ、Ｂに佐藤さんの年齢、職業、
列６にセルＡ、Ｂに佐藤さんの電話番号、備考、
列７にセルＡ、Ｂに大山さんの住所、氏名、
列８にセルＡ、Ｂに大山さんの年齢、職業、
列９にセルＡ、Ｂに大山さん電話番号、備考、
列１０…
と表示されるようにしたいのですが
sheet2のＡ１、Ｂ１、Ａ２、Ｂ２、Ａ３、Ｂ３セルに数式を入力し
列４以降にコピーしても飛び飛びになってうまくいきません。
入力規則かと６列目まで増やしてコピーしても
７列目以降に正しくコピーできません。
何か関数が必要なのでしょうか？過去の質問も検索しましたが
よく分かりません。よろしくお願いします。

imogasi · Accepted Answer

Sheet1のA列に１列挿入します。そのA列の各行に連番を振ってください。オートフィルで。
Sheet2に行って、カード内で無いところの、１セル目立たないところに番号として１を振ります。K1セルとします。
Sheet2に行って、氏名を表示するところで
=VLOOKUP(K1,Sheet1!$a$1:$F$500,3,FALSE)と入れます。
山田が出たはずです。
住所セルには　=VLOOKUP(K1,Sheet1!$a$1:$F$500,2,FALSE)と入れます。
住所が出ました。
最後の項目まで第３引数を変えてVLOOUUP関数をセットしてください。
そこ印刷してください。
K1を2とします。
佐藤さんの内容に変わるはずです。
ここで印刷します。
印刷操作が面倒なので、となると
VBAの出番です。
sub test01()
 For i=1 to 34
range("K1")=i
Range(A1:J30).PrintOut
next i
Sub End
wo
実行すると、Sheet1の第１行から３４人部印刷します。
質問の主旨と少し違いますが、内容はSheet1で見れるので、あえてカードイメージは持たない、こういうやり方をシステムでは良くやります。
ーー
質問どおりでもVBAでやるほうが素直に考えてできます。

mitarashi · Answer

それではご質問の列→行と置き換えて、下記でいかがでしょうか。
　　　　　　　　　A　　　　　　　　　　　　　　　　　　　　B 
1　=INDEX(住所録,INT((ROW()-1)/3)+1,1)　=INDEX(住所録,INT((ROW()-1)/3)+1,2)
2　=INDEX(住所録,INT((ROW()-1)/3)+1,3)　=INDEX(住所録,INT((ROW()-1)/3)+1,4)
3　=INDEX(住所録,INT((ROW()-1)/3)+1,5)　=INDEX(住所録,INT((ROW()-1)/3)+1,6)
4　=INDEX(住所録,INT((ROW()-1)/3)+1,1)　=INDEX(住所録,INT((ROW()-1)/3)+1,2)
5　=INDEX(住所録,INT((ROW()-1)/3)+1,3)　=INDEX(住所録,INT((ROW()-1)/3)+1,4)
6　=INDEX(住所録,INT((ROW()-1)/3)+1,5)　=INDEX(住所録,INT((ROW()-1)/3)+1,6)
7以降繰り返し

頭の体操は以上ですが、実用上はA列にレコード番号（見易い様に全角で入れてありますが、実際には半角を使用）を入れる事にして、
下記の様な式を入れる方が、置き場所の制約も無く、良いと思います。
　　A 　　　　　B　　　　　　　　　　　C 
1　１　=INDEX(住所録,$A1,1)　=INDEX(住所録,$A1,2)
2　　　=INDEX(住所録,$A1,3)　=INDEX(住所録,$A1,4)
3　　　=INDEX(住所録,$A1,5)　=INDEX(住所録,$A1,6)
4　２　=INDEX(住所録,$A4,1)　=INDEX(住所録,$A4,2)
5　　　=INDEX(住所録,$A4,3)　=INDEX(住所録,$A4,4)
6　　　=INDEX(住所録,$A4,5)　=INDEX(住所録,$A4,6)
7行目以降繰り返し
お分かりと思いますが、式はB1:C3の6個のセルを単位に複写してください。

mitarashi · Answer

ANo.3のテストデータと実行例です。改めて質問を読み直すと、ある列のセルA,Bと書かれていて、元のデータ構造が分かりかねます。列と、セル一行目と二行目と短絡的に判断していました。当方の、元のデータ構造の理解が違っているのだと思います。回答では無く、言い訳になってしまいますが。
Sheet1
　　　A　　　　　B　　　　C　　　　　D　　　　E　　　　　F　
1　山田住所　佐藤住所　大山住所　高田住所　遠藤住所　犬山住所
2　山田氏名　佐藤氏名　大山氏名　高田氏名　遠藤氏名　犬山氏名
3　山田年齢　佐藤年齢　大山年齢　高田年齢　遠藤年齢　犬山年齢
4　山田職業　佐藤職業　大山職業　高田職業　遠藤職業　犬山職業
5　山田電話　佐藤電話　大山電話　高田電話　遠藤電話　犬山電話
6　山田備考　佐藤備考　大山備考　高田備考　遠藤備考　犬山備考

Sheet2
　　　A　　　　B　　　　　C　　　　D　　　　　E　　　　F　　　　　G　　　　H　　　　　I　　　　J　　　　　K　
1　山田住所　山田年齢　山田電話　佐藤住所　佐藤年齢　佐藤電話　大山住所　大山年齢　大山電話　高田住所　高田年齢
2　山田氏名　山田備考　山田備考　佐藤氏名　佐藤備考　佐藤備考　大山氏名　大山備考　大山備考　高田氏名　高田備考

hayasi456 · Answer

確かに＋３ずれますね。
妥協してもらえればシンプルな数式（私のレベル）で出来ます。
横に3件分並べて
Ａ１からＢ３に山田さん　Ｄ１からＥ３まで佐藤さん　Ｇ１からＨ３まで大山さん
となるよう数式を入力
行４以下にコピーされてはどうでしょう。

mitarashi · Answer

Sheet1の各人のデータの列番号は、1,2,3,4,5,....
対応するSheet2の各人のデータの先頭列の番号は1,4,7,10,...
この対応の規則性を見いだせば良いのではないでしょうか。
int((Sheet2の列番号 - 1) / 3) + 1 = 対応するSheet1の列番号
でどうでしょうか。列番号はcolumn()で取得できます。
Sheet1のデータ範囲にたとえば住所録という名前をつけたとして、
Sheet2のA1セルに、=INDEX(住所録,1,INT((COLUMN()-1)/3)+1)
Sheet2のA2セルに、=INDEX(住所録,2,INT((COLUMN()-1)/3)+1)
Sheet2のB1セルに、=INDEX(住所録,3,INT((COLUMN()-1)/3)+1)
Sheet2のB2セルに、=INDEX(住所録,4,INT((COLUMN()-1)/3)+1)
Sheet2のC1セルに、=INDEX(住所録,5,INT((COLUMN()-1)/3)+1)
Sheet2のC2セルに、=INDEX(住所録,6,INT((COLUMN()-1)/3)+1)
とすると、山田さんのデータを参照できます。
このA1:C2に入れた式は、D1:F2に複写すれば佐藤さんのデータを参照します。お試し下さい。
ただ、Sheet2のデータの位置を簡単に移す事もできず、汎用性は疑問ですが。

redowl · Answer

印刷時に　質問のような　レイアウトで・・・　実現させたい。
ということでしょうか？

簡単な方法として
sheet2 の
A1に
=CONCATENATE(Sheet1!A1,CHAR(10),Sheet1!C1,CHAR(10),Sheet1!E1)
B1に
=CONCATENATE(Sheet1!B1,CHAR(10),Sheet1!D1,CHAR(10),Sheet1!F1)
この数式を下セルへドラッグ

A,B列を選択して
セルの書式設定→配置→折り返して全体を表示するにチェック→OK
にすれば、　セル内で改行（２カ所）された状態で表示

エクセルで作成した一覧表をカード形式にしたい。

Sheet1のA列に１列挿入します。

この回答への補足

それではご質問の列→行と置き換えて、下記でいかがでしょうか。

ANo.3のテストデータと実行例です。

この回答への補足

確かに＋３ずれますね。

この回答への補足

Sheet1の各人のデータの列番号は、1,2,3,4,5,....

印刷時に 質問のような レイアウトで・・・ 実現させたい。

この回答への補足

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

印刷時に　質問のような　レイアウトで・・・　実現させたい。