No.1ベストアンサー
- 回答日時:
えっとどこまでは出来ているのでしょうか。
まず全体の組み立てを考えてみてはどうでしょう。
わたしは原始的ですが以下のように考えてみました。
・37個の数値のうち、35個を選ぶ → どれか2つを取り除く
・その取り除く2つの組み合わせを全部記載する
・=COMBIN(37,35)で見てみると、666通り。
それでは、2行目以下に666通りを記載してみよう。
というわけで、
空白シートで以下。
Sub aaaaa()
Dim r As Integer, c As Integer
Dim p As Integer, q As Integer
ActiveWindow.Zoom = 70
Range(Columns(1), Columns(41)).ColumnWidth = 4
For r = 1 To 667
For c = 1 To 37
Cells(r, c).Value = c
Next c
Next r
r = 2
For p = 1 To 37
For q = p + 1 To 37
Cells(r, 40).Value = p
Cells(r, 41).Value = q
r = r + 1
Next q
Next p
For r = 2 To 667
Cells(r, Cells(r, 40)).ClearContents
Cells(r, Cells(r, 41)).ClearContents
Next r
Application.ScreenUpdating = False
For r = 667 To 2 Step -1
For c = 37 To 1 Step -1
If Cells(r, c).Value = "" Then
Cells(r, c).Delete shift:=xlToLeft
End If
Next c
Next r
End Sub
一番上には1~37を示し、2行目以降は全組み合わせを記載しました。
AL、AM列には取り除いた2つの値を記載しています。
ご確認ください。
この回答へのお礼
お礼日時:2011/07/18 18:18
ありがとうございますm(_ _)m
とてもわかりやすい記述で、とても勉強になりました!
私の努力が足りないようなので、もっともっと精進します!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) VBAで組み合わせ算出やCOUNTIFSの処理を高速化したいです。 4 2022/04/07 02:38
- Visual Basic(VBA) VBA初心者です 検索した数字の行に色をつける 5 2023/02/13 14:22
- Excel(エクセル) エクセルシートの合計の変動 5 2022/04/05 15:56
- Excel(エクセル) エクセル関数の変わった使い方 3 2022/05/13 17:12
- Excel(エクセル) エクセル 関数について質問です。 2 2022/10/03 11:14
- Excel(エクセル) エクセルでセルに何らかの文字が入力されたらそれを任意の数値として認識させる方法がしりたいです。 3 2023/03/16 20:19
- Excel(エクセル) Excelの空文字判定について 7 2023/01/06 13:25
- その他(プログラミング・Web制作) COBOL数値転記をCOPY句内での仕様 6 2022/06/15 18:48
- その他(プログラミング・Web制作) プログラミング pythonの問題について 2 2022/04/19 00:41
- Visual Basic(VBA) i=cells(Rows.Count, 1)とi=cells(Rows.Count, 2)の違い 2 2022/04/06 10:04
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
至急!尿検査前日にオナニーし...
-
尿検査の前日は自慰控えたほう...
-
尿検査前日に自慰行為した時の...
-
首吊りどこ締めるの
-
変な話しになります。尿検査で...
-
白血球が多いとどんな心配があ...
-
今朝、毎朝の習慣でオナニーし...
-
1日前の検尿
-
射精をして1週間以内に尿検査を...
-
検便についてです。 便は取れた...
-
EXCELで条件付き書式で空白セル...
-
腕を見たら黄色くなってる部分...
-
勃起する時って痛いんですか? ...
-
男です。昨日の午後3時くらいに...
-
EXCELで式からグラフを描くには?
-
彼女のことが好きすぎて彼女の...
-
中出しをするとお腹が痛い・・・。
-
値が入っているときだけ計算結...
-
これって喉仏ですか? 私は女性...
-
EXCELの条件付き書式で数式を空...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
首吊りどこ締めるの
-
中出しをするとお腹が痛い・・・。
-
麻疹風疹の抗体検査結果につい...
-
エクセルでエラーが出て困って...
-
白血球が多いとどんな心配があ...
-
彼女のことが好きすぎて彼女の...
-
検便についてです。 便は取れた...
-
勃起する時って痛いんですか? ...
-
至急!尿検査前日にオナニーし...
-
納豆食べた後の尿の納豆臭は何故?
-
これって喉仏ですか? 私は女性...
-
EXCELで条件付き書式で空白セル...
-
精子が黄色?
-
小数点以下を繰り上げたものを...
-
値が入っているときだけ計算結...
-
口の中に黒い血の塊
-
健否~書類の書き方~
-
甲状腺が腫れているが血液検査...
-
はしかの抗体検査は何科の病院...
-
テスターで断線を調べる方法教...
おすすめ情報