15选5的排列方式如何用Excel体现

怎样用excel把组合数列出来。我要在1-15中选5个数,把所有可能列出来,不需要排列。

示意图如下:

如数据在A1:E15,为了排列时显得整齐,我用A,B,C,D,E,F代替了10,11,12,13,14,15

在F1中输入公式:=OFFSET($A$1,0+(ROW()-1)/(COUNTA(B:B)*COUNTA(C:C)*COUNTA(D:D)*COUNTA(E:E)),0,,) ,下拉。

在G1中输入公式:=OFFSET($A$1,MOD((ROW()-1)/(COUNTA(C:C)*COUNTA(D:D)*COUNTA(E:E)),COUNTA(B:B)),1,,) ,下拉。

在H1中输入公式:=OFFSET($A$1,MOD((ROW()-1)/(COUNTA(D:D)*COUNTA(E:E)),COUNTA(C:C)),2,,) ,下拉。

在I1中输入公式:=OFFSET($A$1,MOD((ROW()-1)/COUNTA(E:E),COUNTA(D:D)),3,,) ,下拉。

在J1中输入公式:=OFFSET($A$1,MOD((ROW()-1),COUNTA(E:E)),4,,) ,下拉。

在K1中输入公式:=F1&G1&H1&I1&J1,下拉。您要的东西全在该列了,数量有点儿大,只怕您没勇气逐个看完呢,呵呵呵!

我想用excel排列出乐透型彩票(例如15选5,12选2等)的全部组合

可以做到,不必用函数,用一般公式就可以了。 但问题是这样做出来的数据量巨大,我以前做过36选7的全部组合,一个Excel表装不下,要分开4 个excel档案,每个要100多M。而如果要拿这个表来做什么分析,简直就是灾难,计算一次不知等到猴年马月。 如果你方便的话可以给个邮箱,我发过去。

这样用excel把组合数列出来。我要在1-15中选5个数,把所有可能列出来,不需要排列。

会用Excel VBA吗? 下面代码可列出所有可能 Sub 组合5in15() Dim I1, I2, I3, I4, I5, M M = 0 For I1 = 1 To 11 For I2 = I1 + 1 To 12 For I3 = I2 + 1 To 13 For I4 = I3 + 1 To 14 For I5 = I4 + 1 To 15 M = M + 1 Range("A" & M) = I1: Range("B" & M) = I2: Range("C" & M) = I3: Range("D" & M) = I4: Range("E" & M) = I5 Next Next

EXCEL中,在十五个随机数里面选五个最小数,怎样输入公式?

在D1单元格输入以下公式,然后向下填充公式 =SMALL(A$1:C$5,ROW(A1))

求问!在EXCEL中从1~35个数字选5个全排,把结果全列出来的公式。

从A1-AI1中填充数列 1 2 3 4 5 …… 35然后使用如下宏代码:Sub test()

Dim i, j, k, l, m, n As Byte

Dim x As Long, y As Long

Application.ScreenUpdating = False

Range("A2:E65536").ClearContents

x = 2

y = 1

For i = 1 To 35 - 4

For j = i + 1 To 35 - 3

For k = j + 1 To 35 - 2

For l = k + 1 To 35 - 1

For m = l + 1 To 35

Cells(x, y) = Cells(1, i)

Cells(x, y + 1) = Cells(1, j)

Cells(x, y + 2) = Cells(1, k)

Cells(x, y + 3) = Cells(1, l)

Cells(x, y + 4) = Cells(1, m)

x = x + 1

If x > 65536 Then

x = 2

y = y + 6

End If

Next

Next

Next

Next

Next

Application.ScreenUpdating = True

End Sub

运行结果共有:324632 组

扩展资料:

如数据在A1:E15,为了排列时显得整齐,我用A,B,C,D,E,F代替了10,11,12,13,14,15

在F1中输入公式:=OFFSET($A$1,0+(ROW()-1)/(COUNTA(B:B)*COUNTA(C:C)*COUNTA(D:D)*COUNTA(E:E)),0,,) ,下拉。

在G1中输入公式:=OFFSET($A$1,MOD((ROW()-1)/(COUNTA(C:C)*COUNTA(D:D)*COUNTA(E:E)),COUNTA(B:B)),1,,) ,下拉。

在H1中输入公式:=OFFSET($A$1,MOD((ROW()-1)/(COUNTA(D:D)*COUNTA(E:E)),COUNTA(C:C)),2,,) ,下拉。

在I1中输入公式:=OFFSET($A$1,MOD((ROW()-1)/COUNTA(E:E),COUNTA(D:D)),3,,) ,下拉。

在J1中输入公式:=OFFSET($A$1,MOD((ROW()-1),COUNTA(E:E)),4,,) ,下拉。

在K1中输入公式:=F1&G1&H1&I1&J1,下拉。

文章标签:信息技术MicrosoftOfficeMicrosoftExcelexcel排列