EXCEL排列组合问题，有1到12这12个数进行选3的组合

分别是110 个 495个 792个

自己慢慢去写出来吧

题主是想用这个百来买彩票吗？仅组度合有220种，排列有1320种。伪随机方法=RANDBETWEEN(1,12)&RANDBETWEEN(1,12)&RANDBETWEEN(1,12)，这种方法可能会出现2个以知上的数相同的情况。要做道到不重复的随机选回取三个要用VBA，天若有情天亦老，给答点金币好不好？
组合是有函数 COMBIN
C列自动生成，VBA可以做到

不知道后面项目数特指什么？

公式知解决方案：

H1=1

I1=2

J1=3

H2

=IF(((I1+1)>4)*((J1+1)>5),H1+1,H1)

I2

=IF(IF((J1+1)>5,I1+1,I1)>4,H2+1,IF((J1+1)>5,I1+1,I1))

J2

=IF(J1+1>5,I2+1,J1+1)

选定H2:J2

下拉至第道10 行

K1

=INDIRECT("R1C"&H1,FALSE)*100+INDIRECT("R1C"&I1,FALSE)*10+INDIRECT("R1C"&J1,FALSE)

下拉至K10

K列即所求的。

VBA解决方案：内

在工作表插入一命令按钮，并编程如下：容

Private Sub CommandButton1_Click()

l = 1

For i1 = 1 To 3

  For i2 = i1 + 1 To 4

    For i3 = i2 + 1 To 5

      Range("F" & l) = Cells(1, i1) * 100 + Cells(1, i2) * 10 + Cells(1, i3)

      l = l + 1

    Next i3

  Next i2

Next i1

End Sub

 

运行结果：