Excelで数値が自動的に入力されるようにしたい

No10の補足 ソルバーの時のデータはB2からB14までを想定してます。 以下のデータをコピペでどうぞ。 700 1300 1700 2200 2800 3000 3800 4300 4900 5300 5800 6400 8800

> やはり、M+X>10000だがM+A+B=10000というケースが出ています。このせいで、袋を１つ少なくする判断になってしまっています 途中でしたら、それから先にZ+A=10000が出てくる可能性もありますよね。最後に出たらまた元の戻ってやり直しということになりますが、どこまで戻るのか戻り先がわかりません。また、M+A+B・・・が10000になる組み合わせを都度確認して先に進むという方法も考えられますが、なんか結局総当たりになりそうです。 で、先に10000の組み合わせをすべて探して排除(この時点で残りのデータではどのような組合わせでも10000にならないことは保障されます)してからNo8の方法というのを考えてみましたが… ソルバーを利用するのですが、スピード的に… とりあえず手動でやってみて１回作業したときのスピードを確認してみてください。 データはB2セルから下方向に入れてください。C列は0にしておくとソルバーの設定の途中でエラーメッセージが出ないのでいいと思います。 Ｄ１セルに =SUMPRODUCT(B2:B14,C2:C14) という数式を入れ ソルバーで目的セルをD1 目標値を指定値で10000 変化セルの変更C1:C14 制約条件の対象を C1:C14=バイナリ　(セル対象の右ボックスの三角を押してbinを選ぶと左記になります) で解決するとC列に1とでたデータの和が10000になっているので該当セルのデータをどこかにコピーして削除 あとは見つからなくなるまでソルバーを続けます。 ところでNo4のデータ 700 1300 1700 2200 2800 3000 3800 4300 4900 5300 5800 6400 8800 これで５袋になる組み合わせはどのような組み合わせでしょうか。ちょっと手動でやってみたけど頭が痛くなって途中でやめました。

訂正です ３)　M+Y＜10000ならM+YをMにして最初に戻る　または　M+Y>10000かつY＜Xの場合ならそのまま採用

> 高めの商品１個を安めの商品２個に置き換えた方が後々有利 後々がその時点でわからないのが難題ですが、例えば 10000-最大値(仮にMとします)を求めて、データの中からその値と同じかその値に最も近くかつ大きな値(仮にXとします) １)　M+X=10000ならそのまま採用 ２)　M+X＞10000ならM+最小値(仮にYとします)を考える ３)　M+Y＜10000ならM+YをMにして最初に戻る　M+Y>10000ならそのまま採用 のようにしておけばどうでしょう。 Xが5000の場合、最小値の並びが 1000 2000 3000 4000 のデータなら1000と4000をとることになり、後々2000と3000をとったほうが良かったというのはその時点ではわからないので仕方がないことだと思われます。

小さい順に並べておいて最大値から順に10000-最大値を求めて、データの中からその値と同じかその値に最も近くかつ大きな値を最大値と加算したものを一袋にする。 データのなかになければ最大値の次(上)の値と加算し10000以上になれば次の利用されなかった上のデータを最大値として上記を繰り返す。 加算しても10000以上にならなかったら加算した値を最大値と考えて上記を繰り返す。 というのは如何でしょう

回答１のアルゴリズムに追加して、 ・１→２→３→４の１回が終了した時点で、１万円を超える袋があったら、次回（逆順）以降ではその袋には商品を入れない ・何回目かで全袋の金額が１万円を超え、まだ商品が残ってたら、個数の少ない袋順に入れる ・全部分配終了した後、１万円を割る袋があったら、袋数を１つ減らして再計算 どうやって自動化するか分りませんが。シミュレーション結果 金額　袋　袋の金額　商品数 8800　 1　 14600　 3 6400　 2　 12400　 3 5800 　 3　 11800 　3 5300　 4　 12200　 4 4900 　 4　 12200　 4 4300 　 3　 11800　 3 3800 　 2　 12400　 3 3000 　 1　 14600　 3 2800 　 1　 14600　 3 2200 　 2　 12400　 3 1700 　 3　 11800　 3 1300 　 4　 12200　 4 700 　 4　 12200　 4

すみませんダメなパターンがありました。 1000 2000 3000 4000 5000 6000 の場合、私の考えではだめですね。

> マクロではなく、お書きいただいた解説をもとに適当に作ったデータでシミュレートしてみたのですが、不具合があるようです。確認していただけないでしょうか。 実行結果です、C列の数値が同じものが同一の袋となりますので４袋必要になります。 B列　　C列　　各袋の合計値 700　　1　　10800 1300　1　　10800 1700　2　　10300 2200　2　　10300 2800　3　　11600 3000　3　　11600 3800　4　　18300 4300　4　　18300 4900　4　　18300 5300　4　　18300 5800　3　　11600 6400　2　　10300 8800　1　　10800 合計10800の袋1袋 合計10300の袋1袋 合計11600の袋1袋 合計18300の袋1袋 全合計=51000 袋数4袋 いかがでしょうか。

No2補足です。 データは1行目からと考えてますので2行目からでしたら j = 1 For i = BRow To 1 Step -1 を j = 2 For i = BRow To 2 Step -1 に変更してください。