エクセルについて教えてください。

質問

エクセルについて教えてください。

添付ファイルを参照ください。

１と入力したら、10000
５と入力したら、11111
１６と入力したら、43333

というようにパー割のできるような仕組みを作りたいです。

◎イメージ

　□　⇒　□　□　□　□　□

ex)

7　⇒　2 2 1 1 1

可能ですか？ご教示願います。

回答No.3

keithin · ベストアンサー

B3に対してD3に
=INT($B3/5)+(COLUMN(A3)<=MOD($B3,5))
と式を入れて右にH3までコピー
更に下向けにずらっとコピーする。

お礼

ありがとうございました。
お礼が遅くなり申し訳ありませんでした。
参考にさせていただきました。
そしてＢＡです！

回答No.2

FuRR

マクロを使えば出来ますが、
数字を入れた瞬間に分割されると言う事で、
関数でする方法を考えました。

表の下の方の空いているセルは自由に使っても良いのでしょうか？
使って良いとして、ダミーの行を作ります。

下図ののように関数を使えば、出来ます。

お礼

ありがとうございました。
参考にさせていただきました＾＾

回答No.1

crossgate

5割固定で良いなら。。。

B列が「13」ってなっている行が10行目と仮定して、こんな関数じゃダメですかね？
D列：TRUNC($B10/5)+IF(((CELL("col",D10)-CELL("col",$D10)+1))<=MOD($B10,5),1,0)
E列：TRUNC($B10/5)+IF(((CELL("col",E10)-CELL("col",$D10)+1))<=MOD($B10,5),1,0)
F列：TRUNC($B10/5)+IF(((CELL("col",F10)-CELL("col",$D10)+1))<=MOD($B10,5),1,0)
G列：TRUNC($B10/5)+IF(((CELL("col",G10)-CELL("col",$D10)+1))<=MOD($B10,5),1,0)
H列：TRUNC($B10/5)+IF(((CELL("col",H10)-CELL("col",$D10)+1))<=MOD($B10,5),1,0)

お礼

ありがとうございました。
実践することができました！
ＢＡにするか非常に迷いました。
助かりました。