VBAを使って簡単なプログラムを作れば、簡単なんですが、質問者の質問振りからそれは出来ないでしょうね。
ーーーー
関数と手作業でやれるものです。
次善の策をお教えしましょう。
下記をその通りやって、コツを理解し自分の場合に修正しましょう。
データセルの位置、項目数、印刷セルの位置・見出し、1ページ辺り人数が変わります。
簡単のため1シート3人の例にします。
例データ Sheet1
A列 B列 C列
氏名 コード 計数
山田 11 123
田中 24 125
鈴木 56 234
木村 45 211
吉本 32 213
近藤 34 341
中山 37 222
Sheet2 印刷しないところへ(ここではE1とする)スタート行の1を入れる。
漢字行は見出しであり1回だけSheet2に作る。レイアウト指定になります。
B列 C列 D列
XXX表
氏名 山田
コード 11
計数 123
XXX表
氏名 田中
コード 24
計数 125
XXX表
氏名 鈴木
コード 56
計数 234
ーー
関数式は
山田ブロックでは
式はC4 =INDEX(Sheet1!$A$1:$C$100,$E$1+1,1)
C6 =INDEX(Sheet1!$A$1:$C$100,$E$1+1,2)
C8 =INDEX(Sheet1!$A$1:$C$100,$E$1+1,3)
田中ブロックでは
式はC13 =INDEX(Sheet1!$A$1:$C$100,$E$1+2,1)
C15 =INDEX(Sheet1!$A$1:$C$100,$E$1+2,2)
C17 =INDEX(Sheet1!$A$1:$C$100,$E$1+2,3)
規則性があるので鈴木ブロックの式は類推してください。
ここで印刷します。
ーー
E1に次のスタート行の4と入れます。
Sheet2は
XXX表
氏名 木村
コード 45
計数 211
XXX表
氏名 吉本
コード 32
計数 213
XXX表
氏名 近藤
コード 34
計数 341
と変わります。
印刷します。
ーー
以下繰り返します。
最後の場合3の倍数で終らないとエラーが出ます。出ないように出来ますが、紙の1-2片の無駄を我慢してください
1,4,7・・と入力し印刷操作は面倒かもしれないが、自動化は
VBAの世界になる。我慢してください。他によい方法はたぶん無い。
お礼
説明に従ってやってみると3人分ずつのができました。データを横に一列に並べたいので同じ行で列を変えて入れてみました。式の最後の数字の規則性がわかり、変形することがてきました。ひとつの行に作ったものをコピーして最後の数字の部分を変えると4人ずつでも5人ずつでも簡単にできることがわかりました。意味がわからないままですが、思っていたことができました。あとは印刷するときにスタートの数を変えるだけで、とても簡単です。自動でなくてもこれで十分です。ありがとうございました。