当前位置:首页 » 十一秒杀 » 快速实现排列组合秒杀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),)

详见附图