• ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:足し算の組み合わせ)

足し算の組み合わせを考える

tom04の回答

  • tom04
  • ベストアンサー率49% (2537/5117)
回答No.1

こんばんは! 一例です。 各系列はA・B列の1行目からあり、結果をC1セル以降に表示させるとします。 Sub test() Dim i, j As Long Application.ScreenUpdating = False Columns(3).ClearContents For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row For j = 1 To Cells(Rows.Count, 2).End(xlUp).Row Cells(Rows.Count, 3).End(xlUp).Offset(1) = Cells(i, 1) + Cells(j, 2) Next j Next i For i = Cells(Rows.Count, 3).End(xlUp).Row To 2 Step -1 If WorksheetFunction.CountIf(Range(Cells(2, 3), Cells(i, 3)), Cells(i, 3)) > 1 Then Cells(i, 3).Delete (xlUp) End If Next i Cells(1, 3).Delete (xlUp) Application.ScreenUpdating = True End Sub ※ A・B列のデータ数が違っても対応できると思います。 他に良い方法があればごめんなさいね。m(_ _)m

dansin_Goo
質問者

補足

回答ありがとうございます。 書き忘れて申し訳ありませんでしたが、系列が2個なら(限定されていれば)自分でも 記述できます。 ただし、限定されているからといって、系列が2個や3個程度ならForの入れ子を2個、3個で すみますが、5個10個それ以上になると現実的ではありません。 系列数は動的にしたいのです。 系列内の数字(1,2,3など)はある程度決まっているのですが…。 できればセルにいちいち書き出さず、配列などを利用して実現できないかと考えています。 よろしくお願いします。

関連するQ&A

  • Excelですべての組合せ(重複組合せ)を出力するには?

    Excelですべての組合せ(重複組合せ)を出力するには? 次の条件のような場合、Excelですべての組合せ(重複組合せ)をVBAで出力するにはどうしたらいいのでしょうか? 10種類のお菓子の中から、好きなものを3個選んでセットにするとします。 同じものを複数選ぶのはありですが「菓子A、菓子B、菓子C」と「菓子B、菓子C、菓子A」は選んだ順が違うだけで同じ組合せなので、どちらか片方だけにします。 この場合、すべての組合せの数は Excelの関数で求めることができるようで COMBIN(10+3-1,3) = 220 通りあることまではわかりましたが、このすべての組合せの一覧をどのようにして出力したらいいのかがわかりません。 いろいろ検索した結果、順列という方法は見つかりましたが、重複組合せでの方法は見つけることができませんでした。 また、Accessを使っても似たようなことができるのでしょうか? 直積? できれば、3個固定ではなく5個の場合も出来るとうれしいです。 よろしくお願いします。

  • エクセル・解がある数字になるように足し算する数字を選ぶ方法

    いくつかの数字が並んでいて、その中から選んで足し算をします。 その足し算の答えがある範囲内に当てはまるような組み合わせを全部求めたいと思います。 分かりにくいので具体例を書きます。 0.5 1.1 1.8 2.3 3.8 4.2 上記の6個の数字からいくつか選んで足した結果が4.9~5.9になる組み合わせをすべて求めたいです。 この場合、 0.5+1.1+1.8+2.3=5.7 1.1+1.8+2.3=5.2 4.2+0.5=4.7 4.2+1.1=5.3 4.2+1.1+0.5=5.8 3.8+1.8=5.6 3.8+1.1=4.9 3.8+1.1+0.5=5.4 の8種類(もっとあったらごめんなさい)になると思います。 この8種類を書き出したいのですが、うまい方法が思い浮かびません。 ソルバーとかなのかと思って調べてみたのですが、計算式が確定していない場合は使えないみたいです。 やっぱりVBAを使わないと難しいでしょうか? なんとか簡単にできる方法があれば、アドバイス下さい。 よろしくお願いいたします。

  • ナンバーズ3、4の重複しないシングルの組み合わせ

    どなたかご存じでしたら回答をお願いします。 数字選択式宝くじのナンバーズ4の組み合わせは、 0000~9999までの10000通りあります。 この中で、全ての数字が異なる組み合わせは 5040通り(10×9×8×7)あると思います。 これを、「重複しないシングル組み合わせ」は 210通り(5040÷(4×3×2×1))になるかと思います。 この210通りの全ての組み合わせをエクセルで作りたいのですが、 作り方が分かりません。 同様に、ナンバーズ3については、000~999までの1000通りの 組み合わせの中から、全ての数字が異なる組み合わせは 720通り(10×9×8)あると思います。 これを、「重複しないシングル組み合わせ」は 120通り(720÷(3×2×1))の全て組み合わせをエクセルで作りたいのですが、 作り方が分かりません。 120 通りと240通りなのでエクセル又はエクセルVBAでの作り方を教えてください。 よろしくお願いします。

  • エクセルの足し算

    エクセルで四捨五入の計算式を入れたセルどうしを足し算すると1合わなくなってしまいます。 セルAに620が入っていて、セルBにAの値620×167.66四捨五入をした数字を入れ、その結果のセルBの値を3行足し算すると1合わなくなります。 セルBは103,949になり3行足すと311,848になってしまうのです。 どうしたら良いか教えてください。

  • 順列・組合わせの問題。

    ある問題集に、こんな問題がありました。 【生徒9人を、3人ずつの組A,B,Cに分けるとする。  この組分けで、特定の2人が同じ組に入る場合は  何通りありますか。】 さて私は、特定の2人ってことは、それをひとくくりにして、 この問題を次のように読み替えてみました。 【生徒8人を、A,B,Cの組に分ける。  1つの組は2人となり、あとの2つの組は3人ずつ入るものとする。  この場合、何通りの組み合わせが考えられるか。】 そして、次のように解いてみました。 ____________________________ 生徒8人を、3/3/2に分ける。 まず、8人から3人を選ぶ組み合わせは、8C3通り。 次に、残りの5人から3人を選ぶ組み合わせは、5C3通り。 のこりの組み合わせは1通りと決まっているから、 8C3×5C3=560(通り) ____________________________ あるいは、同じことですが、 ____________________________ まず、8人から2人を選ぶ組み合わせは、8C2通り。 次に、残りの6人から3人を選ぶ組み合わせは、6C3通り。 のこりの組み合わせは1通りに決まっているから、 8C2×6C3=560(通り) ____________________________ ところが、正解は420通りでした。(T^T) 解答を見れば、その導き出し方は理解できました。 私が知りたいのは、 私の解答法のどこが間違っていて、 具体的にどういった場合を重複して数えてしまっているのか、 その具体例です。 当方、数学はド素人で、ただ好きで問題集を覗いているだけです。 基本的な質問ですみませんが、どなたか分かりやすく教えてください。

  • エクセルでの足し算(特定数を除きたい)

    エクセルでの足し算(特定数を除きたい) 行/セル A B C ・・・・ 1    1 3 7 2    2 1 1 3    3 2 1 上記のように一桁の数字が入ったデータがあるのですが、 このA~Cを足し算するときに、「7以上」の数字は足し算させたくありません。 例: 1行目・・・ A1+B2 = 4 (C1は無視) このような場合はどのような指定をすれば良いでしょうか。

  • 重複組合せ

    重複組合せの問題がどうも理解できないのでお願いします。 問い: 一つのさいころを二回投げて出た目を順にa,bとする時a≧bとなるような目の出 方は何通りあるか。重複組合せの考え方で解け ---- これはどういう風に考えればいいのでしょう。 重複組合せは「○○○○○○と|」という具合に「○の数と頭数-1の仕切」で考えるんですよね。 題意に沿うようにaとbを表に整理すると、 a=1 b=1 a=2 b=1,2 a=3 b=1,2,3 a=4 b=1,2,3,4 a=5 b=1,2,3,4,5 a=6 b=1,2,3,4,5,6 このようになりますが、これを「○の数と頭数-1の仕切」やnHrの形で表すのに どのように考えて良いのか分かりません。 さいころの目は常にn≧1なので、さいころの目を六個のボールと考えて 「aさんが0個のボールを手にするとき、bさんは6個手にすることが出来る」 「aさんが1個のボールを手にするとき、bさんは5個手にすることが出来る」 ・・・ などというようには考えられないのですが・・・。 そもそも重複組合せの私の理解が間違っているのでしょうか。 お願いします。

  • ACCESS2007 クエリで足し算したいができない。

    クエリで、足し算をしたいのですができません。 例えば、A+B=Cをしたいのですが、クエリ内でAとBが0のデータが空白になってしまっていて、足し算ができません。 AとBに数字が入っている場合は、足されています。 規定値を0に設定すればいいみたいですが、それがわかりません。 規定値を0に設定とはどうやるのですか? 元になっているテーブルに設定するのですか? クエリの方に設定するのですか?

  • Perlで足し算をするには

    Perl 初心者です。 いい足し算ができず、困っています。my $Aの数字を足していくだけなのですが、 うまくいきません。 何が悪いのかわかる方教えてください。 よろしくお願いいたします。 Perlではsumをつかわないでしょうか? 下記は4と2と3なので、9になるはずなのですが。。。。 その1 my $A = 4,2,3; $B = (sum($A)); print "$B" その2 my $A = 4,2,3; $B = subsum($A); print "$B"

  • エクセルでnCr (組み合わせ)の作成方法

    どなたかご存じでしたら回答願います。 ミニロトとロト6をエクセルを使用して予想に利用しております。 その中で知りたいのは、下記の場合のエクセルVBAのソースです。 ●知りたいこと。 (1)ミニロトの場合は、31個から5個全てが一致すると一等ですが、  「25個から5個選択した場合の組み合わせ(25C5)」作成方法 (2)ロト6の場合は、43個から6個全てが一致すると一等ですが、  「24個から6個選択した場合の組み合わせ(24C6)」作成方法。 ●入力 (1)ミニロトの場合は、下記のように5×5マスに重複しない数字が入っています。   数字は毎回変わります。   1   2 5 6 7 10 4 11 13 15 8 9 17 21 28 14 16 18 20 25 19 22 23 24 27 (2)ロト6の場合は、下記のように6×4マスに重複しない数字が入っています。   数字は毎回変わります。   1   2 5 6 7 19 10 4 11 13 5 22 8 9 17 21 28 23 14 16 18 20 25 24 ●出力   VBAを実行すると、新シートにそれぞれ、25C5又は、24C6の全組み合わせが出力される。 【注意事項】    ・使用しているエクセルは2010です。 以上、ご回答よろしくお願いします。