EXCELで 数字の振り分け（定数で割って表示）をしたい

質問

説明が下手かと思いますが、ご了承下さい。

入力した数字を、定数で分けて入力したい。
例えば、セルA1に2500と入力する
定数を1000として割ったら、2500÷1000=2.5となりますが、
それを、セルB1に1000、B2に1000、B3に500・・・となるように表示させたい。

関数でもＶＢでも拘りません。
ただ、素人に近いので、ＶＢなら貼ったらＯＫレベルで記入して頂ければ助かります。

宜しくお願い致します。

回答No.3

imogasi · ベストアンサー

例データ
Ａ１：Ｋ８　１０００はＣ１，３５００はＡ２セル
Ａ列　　　Ｂ列　　Ｃ列　・・・
ーー　　－－ 1000
3500 1000 1000 1000 500
7200 1000 1000 1000 1000 1000 1000 1000 200
8900 1000 1000 1000 1000 1000 1000 1000 1000 900
3200 1000 1000 1000 200
5420 1000 1000 1000 1000 1000 420
0
0
式Ｂ２に
=IF(COLUMN()-1>INT($A2/$C$1)+1,"",IF($C$1*(COLUMN()-1)<$A2,$C$1,$A2-$C$1*(COLUMN()-2)))
これを立て横方向に式を複写する。
結果Ｂ２：Ｋ６
０を出さないようにするのは省略。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝
＞ＶＢなら貼ったらＯＫレベルで記入して頂ければ助かります。
心やさしい人が回答してくれているが、この質問コーナーは丸投げして、回答者に下請け的回答させる場じゃない。
少し勉強して、的を絞って質問してほしい。

お礼

３名の方に回答を頂きましたが、私にも分かるレベルでした。
早速、使わせて頂きたいと思います。

本当にありがとうございました。

質問の文章で気に障るような書き方があったようで、申し訳ございません。
こちらは一切そのような気持ちはなく、素人相手に二度手間取らせるのは悪いと思い作成した文章です。

ただ、勉強しても分からないから聞いてるのですが・・・
今回のように、回答１＆２の方の説明も丁寧ですが、それでも出来なければ困ってしまう。
何度も投げ返すのも失礼ですし、素人相手レベルで返事が欲しくて書いた文章だったけれど、申し訳ございません。

回答No.2

mshr1962

Function MSEP(X1, X2, X3)
If X1 > X2 * X3 Then
MSEP = X2
Else
MSEP = X1 - X2 * (X3 - 1)
End If
If MSEP <= 0 Then MSEP = ""
End Function

として
B1=MSEP($A$1,1000,ROW(1:1))
で下方にコピー

お礼

思うような動作にならなかったです。
理解できていないかもしれません。

回答３の方法で解決しましたので、そちらを使用します。

ご丁寧な対応、ありがとうございました。
またトライして、内容を理解するよう勉強します。

回答No.1

mu2011

一例です。
B1に数式入力して必要分下方向にコピーして下さい。
=IF(ROUNDUP($A$1/定数,0)>ROW(B1)-1,MIN($A$1-定数*(ROW(B1)-1),定数),"")

お礼

やってみましたが・・・
思うような動作にならなかったです。
こちらの やり方がマズイのでしょうか？

回答３の方法はしっくりきたので、
そちらで解決としたいと思います。

早々の回答に感謝いたします。
ありがとうございました。