Excel数字排列组合公式写法介绍
文章通过一个实例来介绍数字排列组合公式的写法，感兴趣的朋友对排列组合公式稍微变通实现类似的需求。需要排列组合公式的，多是对数字感兴趣的朋友，喜欢对数字排列组合。
本文介绍通过excel中编写VBA代码，掌握一些规律和算法来写排列组合公式。
数字排列组合公式的思路，可以这样理解：从n个不同元素中，任取m(m≤n)个元素按照一定的顺序排成一列。
下面通过一个实例来讲解如何通过排列组合公式完成数字排列组合。
比如从"9876543"中任意取5个数来进行排列组合，方法是：
新建一个工作表，按ALT+F11，打开VBE编辑器，插入——模块，在右边代码编辑框复制下面的代码，然后单击工具栏的“运行”命令，然后切换到工作表中，可以看见A列已经根据排列组合公式自动生成了所需要的所有数字排列组合。
Sub 排列组合公式()
Dim II%, I%, J%, K%, L%, M%
Dim Srt1$, Srt2$, Srt3$, Srt4$, Srt5$
Dim TStr1$, TStr2$, TStr3$, TStr4$
Dim t, arr()
Const FullStr = "9876543"
t = Timer
II = 0
For I = 1 To 7
Srt1 = Mid(FullStr, I, 1)
TStr1 = Replace(FullStr, Srt1, "")
For J = 1 To 6
Srt2 = Mid(TStr1, J, 1)
TStr2 = Replace(TStr1, Srt2, "")
For K = 1 To 5
Srt3 = Mid(TStr2, K, 1)
TStr3 = Replace(TStr2, Srt3, "")
For L = 1 To 4
Srt4 = Mid(TStr3, L, 1)
TStr4 = Replace(TStr3, Srt4, "")
For M = 1 To 3
Srt5 = Mid(TStr3, M, 1)
II = II + 1
ReDim Preserve arr(1 To II)
arr(II) = Srt1 & Srt2 & Srt3 & Srt4 & Srt5
Next
Next
Next
Next
Next
Range("A1:A" & II) = Application.Transpose(arr)
End Sub
绛旓細\x0d\x0a\x0d\x0aNumber_chosen 姣忎竴缁勫悎涓」鐩殑鏁伴噺銆俓x0d\x0a\x0d\x0a姣斿锛氫粠9涓鏁板瓧鐞冧腑锛岄殢鏈烘娊3涓悆锛屽叡鏈夊灏戠缁勫悎锛屽湪excel浠讳竴鍗曞厓鏍艰緭鍏モ=COMBIN(9,3)鈥濓紝鍥炶溅銆傜粨鏋滃氨浼氬緱鍒般84绉峔x0d\x0a\x0d\x0a2銆佹帓鍒楋細杩斿洖浠庣粰瀹氭暟鐩殑瀵硅薄闆嗗悎涓夊彇鐨勮嫢骞插璞＄殑鎺掑垪鏁...
绛旓細1銆侀鍏堝湪鐢佃剳涓墦寮excel杞欢锛岃緭鍏ヨ缁勫悎鐨勬暟鎹2銆佸湪鏂扮殑涓鍒椾腑杈撳叆鍏紡锛=INDEX($E$1:$E$3,INT((ROW(E1)-1)/4)+1)锛屽鍥炬墍绀猴紝鍏朵腑4琛ㄧず鐢蹭箼涓欎竵鍥涗釜鐨勬暟閲忋3銆佺劧鍚庡洖杞︼紝寰涓嬫嫋鎷夎嚦ABC鏁伴噺涔樹互鐢蹭箼涓欎竵鐨勬暟閲忥紝杩欓噷涓3X4=12銆4銆佸悓鏍凤紝鍦ㄦ柊鐨勪竴鍒楄緭鍏ュ叕寮忥細=INDEX($F$1:$F$4,...
绛旓細F1杈撳叆0鎴栬1 F2=COUNTA(B$2:D2)+1鍚戜笅澶嶅埗 G2=IF(ROW(A1)<$F$4,LOOKUP(ROW(A1),$F$1:$F$3,$A$2:$A$4),"")鍚戜笅澶嶅埗鐩磋嚦鍑虹幇绌烘牸 H2=OFFSET($A$1,MATCH(G2,$A$2:$A$4,),COUNTIF(G$2:G2,G2))鍚戜笅澶嶅埗鍒癎鍒楁渶鍚庝竴琛 I2=G2&H2鍚戜笅澶嶅埗 ...
绛旓細杈撳叆浠ヤ笅鍏紡锛岀劧鍚庡悜涓嬪～鍏呭叕寮 =OFFSET(A$1,INT((ROW(A1)-1)/40),)&OFFSET(B$1,MOD(INT((ROW(A1)-1)/4),10),)&OFFSET(C$1,MOD(ROW(A1)-1,4),)璇﹁闄勫浘
绛旓細鍦–1杈撳叆浠ヤ笅鍏紡锛岀劧鍚庡悜涓嬪～鍏呰嚦C243鍗曞厓鏍 =OFFSET(A$1,INT((ROW(A1)-1)/81),)*10^4+OFFSET(A$1,MOD(INT((ROW(A1)-1)/27),3),)*10^3+OFFSET(A$1,MOD(INT((ROW(A1)-1)/9),3),)*10^2+OFFSET(A$1,MOD(INT((ROW(A$1)-1)/3),3),)*10+OFFSET(A$1,MOD(ROW(A1...
绛旓細缁勫悎鍏紡 =COMBIN(x,y)鎺掑垪鍏紡 =PERMUT(x,y)鏁板瓧鎹㈡帀灏卞彲浠ョ敤浜 缁勫悎灏辨槸浠巟涓暟閲岄潰鍙杫涓暟锛堜笉鍒嗛『搴忥級渚嬪瓙锛36閫6 =COMBIN(36,6)鎺掑垪灏辨槸浠巟涓暟閲岄潰鍙杫涓暟锛堝垎椤哄簭锛 渚嬪瓙锛14閫8 =PERMUT(14,8)copy鏉ョ殑锛屼笉鐭ラ亾鏄笉鏄紝浣犵湅鐪 ...
绛旓細涓轰綘鑰屼綔 Excel鎬庢牱澶勭悊鎺掑垪缁勫悎鍒楄〃
绛旓細璁句綘鐨勬暟鎹槸浠嶢1寮濮嬪啓鐨勶紝濡傚浘锛氬湪A11 鍐欏叆鍏紡 =COUNT(A1:A10) 鍚庢媺鍒 F11锛屽湪G11鍐欏叆涓涓鏁板瓧 1 鍦ㄥ叾浠栧湴鏂瑰啓鍏ヤ互涓嬪叕寮忥紝鍐嶅悗鎷夊拰涓嬫媺灏卞彲浠ヤ簡锛=IF(ROW(H1)>PRODUCT($A$11:$F$11),"",OFFSET(A$1,INT(MOD(ROW(H1)-1,PRODUCT(A$11:$F$11))/PRODUCT(B$11:$G$...
绛旓細鍏紡锛1脳2脳3脳4脳鈥︹γ梟 杩欓噷鏈7涓暟鎹紝鍒1脳2脳3脳4脳5脳6脳7=5040锛屽叡鏈5040绉缁勫悎銆
绛旓細1銆侀鍏堟墦寮鐢佃剳涓婄殑excel琛ㄦ牸锛岀劧鍚庣粺璁′笉閲嶅鐨勪釜鏁般2銆佺劧鍚庝娇鐢鍏紡锛=SUMPRODUCT(1/COUNTIF(A2:A9,A2:A9))銆3銆佷娇鐢ㄥ叕寮忓悗缁熻涓嶉噸澶嶇殑涓鏁锛屼究浜庡湪鏁版嵁閲忓ぇ鐨勬儏鍐典笅浣跨敤鍏紡銆4銆佹彁鍙栦笉閲嶅鐨勫唴瀹笴2鍗曞厓鏍艰緭鍏ヤ互涓嬫暟缁勫叕寮忥紝鎸塁trl+ Shift+Enter锛屽悜涓嬪鍒躲=INDEX(A:A,1+MATCH(,COUNTIF(C...
