當前位置:首頁 » 十一秒殺 » 快速實現排列組合秒殺excel
擴展閱讀
寧波奧德賽優惠價格 2021-03-15 14:26:02
丹尼斯購物卡能掛失么 2021-03-15 14:25:58
淘寶購物指紋驗證失敗 2021-03-15 14:24:44

快速實現排列組合秒殺excel

發布時間: 2021-03-04 15:04:39

A. 用Excel做排列組合 怎麼才能做到

操作步驟:
1、在A1單元格輸入=INT(MOD((ROW(A1)-1)/2^(COLUMN(A1)-1),2))
2、公式往右復制或填充至N列(14列)內
3、選上A1-N1,容復制或填充至16384行(14位數,2個數字的組合共有2的14次方種)
(ctrl+g,可以快速定位到N16384單元格,然後用shift+滑鼠可以快速選擇區域)
4、在01單元格輸入=A1&B1&C1&D1&E1&F1&G1&H1&I1&J1&K1&L1&M1&N1
公式往下填充或復制
5、復制O列,粘貼為數值
6、用查找替換功能(ctrl+F),把0、1分別換成B、P或P、B

B. excel中,實現排列組合,這個怎麼弄

用VBA解決,ALT+F11打開VBA編輯器,插入模塊,將以下代碼粘貼,按F5運行,C列為「一:」的結果,D列為「二:」的結果。

Sub sort()

Dim i, j, k1, k2, k3, k4, m As Integer

Sheet1.Activate

Range("C:C").Clear

i = Range("a65535").End(xlUp).Row

j = Range("b65535").End(xlUp).Row

m = 1

For k1 = 1 To i

For k2 = 1 To j

For k3 = k2 + 1 To j

Cells(m, 3) = Cells(k1, 1) & Cells(k2, 2) & Cells(k3, 2)

m = m + 1

Next

Next

Next

Range("D:D").Clear

m = 1

For k1 = 1 To i

For k2 = 1 To j

For k3 = k2 + 1 To j

For k4 = k3 + 1 To j

Cells(m, 4) = Cells(k1, 1) & Cells(k2, 2) & Cells(k3, 2) & Cells(k4, 2)

m = m + 1

Next

Next

Next

Next

End Sub

C. excel排列組合窮舉

1、排列數復就是3+3+3+3=3*4=12
2、用VBA簡單,若制用EXCEL公式也可就是麻煩一點。
C1
=MID("高中低",MOD(INT((COLUMN(A1)-1)/4)+1+INT((ROW(A1)+MOD(COLUMN(A1)-1,4)-1)/4)-1,3)+1,1)右拉填充至N1,再一起下拉填充4行。

D. excel如何做排列組合

1、打開"排列組合.XLS"。

E. excel中,實現排列組合。

Function ABC(arr As Range, num As Integer)
R = arr.Rows.Count
For C1 = 1 To R
For C2 = C1 + 1 To R
For C3 = C2 + 1 To R
For C4 = 1 To R
For C5 = C4 + 1 To R
For C6 = C5 + 1 To R
rr = rr + 1
ABC = arr(C1, 1) & "," & arr(C2, 1) & "," & arr(C3, 1) & "," & arr(C4, 2) & "," & arr(C5, 2) & "," & arr(C6, 2)
If rr = num Then Exit Function
Next
Next
Next
Next
Next
Next
End Function

F. EXCEL怎麼實現自動排列組合

占個位置看高人

G. 如何讓excel自動排列組合

使用vba實現

自動排列組合,生成排列組合的列數,手動輸入

然後從第二行第一列開始生成每列數據,每列數據數字不重復,數量隨機。

實現代碼如下:

Sub按鈕1_Click()
Application.ScreenUpdating=False
ActiveSheet.UsedRange.ClearContents'清空表格
a=InputBox("請輸入產生序列的列數")'提示輸入列數
Setd=CreateObject("scripting.dictionary")'字典去重
IfVBA.IsNumeric(a)Then'判斷輸入的是否是數值,不是則跳出程序
Randomize'初始化隨機數

Forj=1ToInt(a)'生成輸入列數的隨機數
b=Int(Rnd*99999)Mod10+1'每列產生隨機數的數量
d.RemoveAll
l2:
Ifd.Count<>bThen'生成隨機數
d(Int(Rnd*99999)Mod10)=""
GoTol2
EndIf
Cells(2,j).Resize(d.Count)=WorksheetFunction.Transpose(d.keys)'將隨機數存入相應列里
Nextj
Else
MsgBox"請輸入數值"
GoTol1
EndIf
l1:
Application.ScreenUpdating=True
EndSub

程序執行效果:

H. 怎麼用EXCEL自動排列組合

使用一組輔助列使用公式=TRUNC(A1/5)+1,之後將得到結果列進行升序排序即可.

I. excel自動排列組合公式

EXCEL有排列和組合函數。

排列函數為PERMUT函數,組合函數為COMBIN函數。

組合函數:計算從給定數目的對象集合中提取若干對象的組合數。利用函數 COMBIN 可以確定一組對象所有可能的組合數。

語法:COMBIN(number,number_chosen)

排列函數:返回從給定數目的對象集合中選取的若干對象的排列數。排列為有內部順序的對象或事件的任意集合或子集。排列與組合不同,組合的內部順序無意義。此函數可用於彩票抽獎的概率計算。

語法:PERMUT(number,number_chosen)

(9)快速實現排列組合秒殺excel擴展閱讀:

Excel函數大全:

AVERAGE 返回選定資料庫項的平均值。

COUNT 計算資料庫中包含數字的單元格的個數。

COUNTA計算資料庫中非空單元格的個數。

DGET 從資料庫中提取滿足指定條件的單個記錄。

MAX 返回選定資料庫項中的最大值。

MIN 返回選定資料庫項中的最小值。

PRODUCT乘以特定欄位(此欄位中的記錄為資料庫中滿足指定條件的記錄)中的值。

STDEV根據資料庫中選定項的示例估算標准偏差。

STDEVP 根據資料庫中選定項的樣本總體計算標准偏差。

SUM對資料庫中滿足條件的記錄的欄位列中的數字求和。

VAR根據資料庫中選定項的示例估算方差。

VARP根據資料庫中選定項的樣本總體計算方差。

GETPIVOTDATA 返回存儲在數據透視表中的數據。

J. 怎麼用EXCEL實現排列組合

輸入以下公式,然後向下填充公式

=OFFSET(A$1,INT((ROW(A1)-1)/8),)&OFFSET(B$1,MOD((ROW(A1)-1)/2,4),)&OFFSET(C$1,MOD(ROW(A1)-1,2),)

詳見附圖