HOME > Q&A > Excel （一般機能）

Excel （一般機能）
Excelの一般機能に関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(指定なし : 指定なし)
別のシートのレイアウトを変更してデータを移す方法
投稿日時: 25/02/26 17:02:07
投稿者: 大

お世話になります。
 
支店名　住所　電話　1月　２月　３月　４月
〇〇〇　〇〇　〇〇 　〇　　〇　　〇　　〇
●●●　●●　●●　 ●　　●　　●　　●
・・・
・・
・
 
のように入力されているシートから、別のシートに
 
支店名　住所　電話
〇〇〇　〇〇　〇〇
　　　　　　　　1月　２月　３月　４月
 　　　　　　　　〇　　〇　　〇　　〇
 
支店名　住所　電話
●●●　●●　●●
　　　　　　　　1月　２月　３月　４月
 　　　　　　　　●　　●　　●　　●
 
・・・
 
のようにレイアウトを変更して表示させたいのです。
関数を使って移す方法をご存じの方がいらっしゃれば、宜しくお願いいたします。
回答
投稿日時: 25/02/26 18:30:36
投稿者: んなっと

●Sheet1
 
　　　　A　　 B　　 C　　D　　 E　　 F　　 G
1　支店名　住所　電話　1月　２月　３月　４月
2　　　あ　　ア　　11　　1　　 2　　 3　　 4
3　　　い　　イ　　22　　5　　 6　　 7　　 8
 
●Sheet2
 
　　　　A　　 B　　 C　　D　　 E　　 F　　 G
1　支店名　住所　電話　　　　　　　　　　　　
2　　　あ　　ア　　11　　　　　　　　　　　　
3　　　　　　　　　　　1月　２月　３月　４月
4　　　　　　　　　　　　1　　 2　　 3　　 4
5　支店名　住所　電話　　　　　　　　　　　　
6　　　い　　イ　　22　　　　　　　　　　　　
7　　　　　　　　　　　1月　２月　３月　４月
8　　　　　　　　　　　　5　　 6　　 7　　 8
 
A1
=IFERROR(INDEX(Sheet1!A:A,CHOOSE(MOD(ROW(A1),4),1,(ROW(A1)+6)/4)),"")
右方向・→(C列まで)　下方向・↓
D3
=IFERROR(INDEX(Sheet1!D:D,CHOOSE(MOD(ROW(D1),4),1,(ROW(D1)+6)/4)),"")
右方向・→　下方向・↓
 
 
※下のように5行単位の場合は
 
　　　　 A　　 B　　 C　　D　　 E　　 F　　 G
 1　支店名　住所　電話　　　　　　　　　　　　
 2　　　あ　　ア　　11　　　　　　　　　　　　
 3　　　　　　　　　　　1月　２月　３月　４月
 4　　　　　　　　　　　　1　　 2　　 3　　 4
 5　　　　　　　　　　　　　　　　　　　　　　
 6　支店名　住所　電話　　　　　　　　　　　　
 7　　　い　　イ　　22　　　　　　　　　　　　
 8　　　　　　　　　　　1月　２月　３月　４月
 9　　　　　　　　　　　　5　　 6　　 7　　 8
10　　　　　　　　　　　　　　　　　　　　　　
 
A1
=IFERROR(INDEX(Sheet1!A:A,CHOOSE(MOD(ROW(A1),5),1,(ROW(A1)+8)/5)),"")
D3
=IFERROR(INDEX(Sheet1!D:D,CHOOSE(MOD(ROW(D1),5),1,(ROW(D1)+8)/5)),"")
投稿日時: 25/02/27 07:50:20
投稿者: 大

んなっと様
 
お世話になっております。
ご返信ありがとうございます。
また返信が遅くなってしまい申し訳ございませんでした。
 
できました。
なんでこの関数でこうなるのかは、まったくわからないのですが。。
 
どうもありがとうございます！
大変たすかりました。