Excelの連続データから数行おきのコピー

質問

ExcelのSheet1に連続したデータが入っています。

Sheet2はSheet1の内容を参考にしてレイアウトを変えていますが、

Sheet1で入力してある項目を参照して表示したいです。

コピーには規則性があるので、Sheet2を2項目だけ入力した後、

オートフィルで、一発で全部コピーしたいです。

VBAではなく、Sheet2に書くべき関数のコードを教えてください。

よろしくお願い致します。

-------------------------------

連続したデータがSheet1に大量に入っています。

例
　 A　　　B 　　　C
1 北海道　札幌市　メロン
2 青森県 八戸市 りんご
3 岩手県　盛岡市　冷麺

以下、多数あり。

Sheet2に、

　 A　　　B 　　　C
1 北海道　札幌市　メロン
2
3
4
5 青森県 八戸市 りんご
6
7
8
9 ※ここから下をオートフィルのコピーで表示したい

回答No.2

KURUMITO · ベストアンサー

シート２のA２セルには（A１,A３セルでもよい）次の式を入力してC２セルまでドラッグコピーしたのちに下方にもドラッグコピーします。

=IF(MOD(ROW(A1),4)<>1,"",IF(INDEX(Sheet1!$A:$C,ROUNDUP(ROW(A1)/4,0),COLUMN(A1))="","",INDEX(Sheet1!$A:$C,ROUNDUP(ROW(A1)/4,0),COLUMN(A1))))

上式では１つのデータに４行を使っているので４が入力されています。５行必要なら５に改めて使用すればよいでしょう。
なお、シート１でデータが２行目から下方になる場合には次のような式になります。

=IF(MOD(ROW(A1),4)<>1,"",IF(INDEX(Sheet1!$A:$C,ROUNDUP(ROW(A1)/4,0)+1,COLUMN(A1))="","",INDEX(Sheet1!$A:$C,ROUNDUP(ROW(A1)/4,0)+1,COLUMN(A1))))

＋１が新たに追加されますね。

お礼

詳しいご回答ありがとうございました！

大変参考になりました！

回答No.1

keithin

こんばんは。

添付図：
シート２のＡ１セルに
=INDEX(Sheet1!A:A,ROW(A4)/4)
と記入、右にコピー（または右にコピーして並ぶ数式を参考に、必要な列を参照する式を作成）

Ａ１：Ｃ４を選択、下向けにオートフィルドラッグコピーして完成。

＃別の方法（もっと簡単な数式。ただし「手を動かすのがメンドクサイ」人には不向き）
シート２のＡ１セルに
=Sheet1!A1
と記入、コピーして「Ｃ１０セルまで」貼り付ける
Ｄ１からＤ１０に、数字の１，２，３，４，…１０と記入する
Ｄ１：Ｄ１０をコピーし、Ｄ１１、Ｄ２１、Ｄ３１、Ｄ４１に貼り付ける
（都合１から１０が４回並ぶ）

Ａ：Ｄ列を選択し、Ｄ列昇順でＡ：Ｄ列全体を並べ替えると完成。