Excelで分類ごとにページを分ける関数の作成方法

2022/09/03 14:16

このQ&Aのポイント

Excelで分類ごとにページを分けるための関数を作成する方法を教えてください。分類ごとに1ページあたり5行表示し、分類が変わるごとに次のページに表示させる表を作成したいです。
分類ごとにページを分けるための関数の作成方法がわかりません。分類ごとに1ページあたり5行表示し、次のページに表示させる表を作成したいです。
Excelで分類ごとにページを分けるための関数を作成する方法が知りたいです。分類ごとに1ページあたり5行表示し、分類が変わるごとに次のページに表示させる表を作成したいです。

kinkin947
お礼率33% (1/3)

Excel（エクセル）
回答数3
ありがとう数2

みんなの回答 （3）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

SI299792
ベストアンサー率47% (774/1618)

2022/09/03 20:47 回答No.3

セル位置が解りません。画像のような表とします。皆さん難しいことをしていますが、これでいいです。 Sheet1 C2: 1 C3: =C2+1+(A2<>A3)*(5-MOD(C2,5)) 下へコピペ。ワークエリアです。目障りなら非表示にして下さい。 Sheet2 A2: 1 B2: =IFERROR(INDEX(Sheet1!A:A,MATCH($A2,Sheet1!$C:$C,0)),"") C2: B2をコピペ。纏めて下へオートフィル。

質問者

お礼 2022/09/05 12:50

ありがとうございます！まさしく希望通りにうまくできました。1ページあたりの行数の変更や項目を増やす（価格等）こともできました。大変助かりました！

その他の回答 (2)

HohoPapa
ベストアンサー率65% (455/693)

2022/09/03 18:10 回答No.2

#1です。数式のコピペを間違えたので差し替えます。 VBAを使わない対応ということに興味を惹かれ、挑戦してみました。添付画像のような配置として Sheet1 C5=IF(A4<>A5,C4+1,C4) D5=IF(C4<>C5,1,D4+1) E5=ROUNDUP(D5/5,0)+(C5*100) F5=IF(E4<>E5,F4+1,F4) G5=IF(F4<>F5,1,G4+1) H5=(F5-1)*5+G5 を埋め、必要数下方向に複写 Sheet2 B5=IFERROR(INDEX(Sheet1!$A$5:$B$23,MATCH(ROW()-4,Sheet1!$H$5:$H$23,0),1),"") C5=IFERROR(INDEX(Sheet1!$A$5:$B$23,MATCH(ROW()-4,Sheet1!$H$5:$H$23,0),2),"") あるいは、 B5=IFERROR(INDEX(Sheet1!$A$5:$B$23,MATCH(A5,Sheet1!$H$5:$H$23,0),1),"") C5=IFERROR(INDEX(Sheet1!$A$5:$B$23,MATCH(A5,Sheet1!$H$5:$H$23,0),2),"") を埋め、必要数下方向に複写という解はいかがでしょうか。

HohoPapa
ベストアンサー率65% (455/693)

2022/09/03 18:01 回答No.1

VBAを使わない対応ということに興味を惹かれ、挑戦してみました。添付画像のような配置として Sheet1 C5=IF(A4<>A5,C4+1,C4) D5=IF(C4<>C5,1,D4+1) E5=IF(C4<>C5,1,D4+1) F5=IF(E4<>E5,F4+1,F4) G5=IF(F4<>F5,1,G4+1) H5=(F5-1)*5+G5 を埋め、必要数下方向に複写 Sheet2 B5=IFERROR(INDEX(Sheet1!$A$5:$B$23,MATCH(ROW()-4,Sheet1!$H$5:$H$23,0),1),"") C5=IFERROR(INDEX(Sheet1!$A$5:$B$23,MATCH(ROW()-4,Sheet1!$H$5:$H$23,0),2),"") あるいは、 B5=IFERROR(INDEX(Sheet1!$A$5:$B$23,MATCH(A5,Sheet1!$H$5:$H$23,0),1),"") C5=IFERROR(INDEX(Sheet1!$A$5:$B$23,MATCH(A5,Sheet1!$H$5:$H$23,0),2),"") を埋め、必要数下方向に複写という解はいかがでしょうか。