Excel 在 1 30 中，選擇 6 個不同的數字進行組合，如何列出所有組合

sub 列出 30 種組合中的所有 6 種 （）。

falseww = 2

for m1 = 1 to 25

for m2 = m1 + 1 to 26for m3 = m2 + 1 to 27for m4 = m3 + 1 to 28for m5 = m4 + 1 to 29for m6 = m5 + 1 to 30cells(ww, 1).value = m1cells(ww, 2).value = m2cells(ww, 3).

value = m3cells(ww, 4).value = m4cells(ww, 5).value = m5cells(ww, 6).

value = m6ww = ww + 1

nextnext

nextnext

nextnext

trueend sub

別忘了給積分！

有64種組合（4*4*4），結果如下：

求和結果有10種，每種型別的次數如下：

使用的 Excel：

生成清單的過程：

結果很多，這得用**列出來。

它們的排序順序不是。

c（33,6）=33*32*31*30*29*28 6*5*4*3*2*1=1107568種，如果區分排序順序版本，則有p（33,6）=33*32*31*30*29*28=797448960種。

這是乙個組合問題。

36 人中有 6 人 = 36 人！/6!/(36-6)!1947792件

有近 195 萬種組合，非常繁瑣且容易出錯。

因此，建議以程式設計方式完成分組。

寫了一段fortran**。 由於空間限制，只能輸出一小部分作為示例。

S20、S33、S05等是表示組合單位的數字，總共有36個。 您可以通過將數字新增到陣列並使用該陣列中的數字來自動將數字替換為您選擇的數字。

附：輸出效果和**。

可以實現全能的VBA。

第 1 步：初始化乙個包含 12 個數字的陣列。

第 2 步：假設您將 jgarr（1 到 220,1 到 3）定義為整數

js=0for i=1 to 10

for j=i+1 to 11

for k=j+1 to 12

js=js+1

jgarr(js,1)=arr(i):jgarr(js,2)=arr(j):jgarr(js,3)=arr(k)

next k

next j

next i

如果你不明白，再問我一次。

程式： 結果：

共220個組，貼上後無法傳送，只有您可以自己執行（按alt+f11）。

公式是可以實現的。 如果你晚上有時間，再想一想。

這個寫**可以實現！

這種排列不容易直接在Excel中排列，用巨集也很難完成。

在10個數字的完整排列中，總共有10個=3,628,800，組合僅為 c（10,10）=1。

如果要合併所有（即從 1 到 10 位數字），則有 2 個 10-1 = 1023 個結果。

由於組合中沒有順序，因此可以人為地給出 1 個順序，例如，需要第 5 個組合，我們先編號 10 個數字，數字為 1 個，結果是 2 位數字的組合，根據排列方式是 13; 同樣，第 6 個組合是 123 ,..第 1023 個組合是 123456789a。 計算方法如下：

首先，將序數轉換為二進位值，二進位值 5 為 101，從最高位數開始，如果位值為 1，則使用位數的序數作為數字而不是位值; 刪除位值為 0。 101的第一位和第三位數字是1，其餘的是0，通過替換數字序列號得到的數字組合是13; 同樣，6 的二進位值為 110，代入的結果為 12; 1023的二進位值為1111111111，代入結果為123456789a。

使用巨集處理比較簡單，先做乙個自定義函式 z（n，x），計算第 n 個組合的二進位值，返回其第 x 位，然後使用迴圈過程計算 x=1 10 時 f=z（n，x）*x 的值，合併非 0 的 f 值。

完全和有選擇性的安排可以通過迴圈語句來實現，但它們似乎沒有多大意義。

一列或一行沒有盡頭。 可能沒有辦法！