UC知道求教老师！EXCEL 问题？
来源：百度知道 编辑：UC知道 时间：2024/05/30 05:42:02
描述：任意4个非重复的数字，将4个数字分别以3个为一组不限先后顺序，快速求出这些组分别是什么？
例如：A1:0123
结果：A2:012、B2:013、C2:023、D2:123
问题：那么0至9共10个数字，分别5个一组分组，这些都是什么呢？用什么公式呢？
例如：A1:0123456789
结果:A2:?、B2?、C2?、D2?、E2?、F2?、....
请老师赐教,谢谢！ ^_^
例如：A1:0123
结果：A2:012、B2:013、C2:023、D2:123
问题：那么0至9共10个数字，分别5个一组分组，这些都是什么呢？用什么公式呢？
例如：A1:0123456789
结果:A2:?、B2?、C2?、D2?、E2?、F2?、....
请老师赐教,谢谢！ ^_^
这里给你一个方法，有问题HI我。
以0123的组合为例，
首先将第2行单元格格式的数据类型设置为“文本”
按下ALT+F11,插入-模块,复制下列代码.按F5运行.
Sub aaa()
Range("a2").Select
For a = 0 To 3
For b = 0 To 3
For c = 0 To 3
Do While a < b And a < c And b < c
Sum = a & b & c
ActiveCell.Value = Sum
ActiveCell.Offset(0, 1).Select
Exit Do
Loop
Next
Next
Next
End Sub
若要求0-9的任意4个数字的组合，如果你把原始0-9这些数据，分别写在a1-j1十个单元格内，还可以这么写代码（更具灵活性，并且为了显示方便，从A2单元格纵向显示组合结果）：
Sub aaa()
Range("a2").Select
For a = Range("a1") To Range("J1")
For b = Range("a1") To Range("J1")
For c = Range("a1") To Range("J1")
For d = Range("a1") To Range("J1")
Do While a < b And a < c And b < c And a < d And b < d And c < d
Sum = a & b & c & d
ActiveCell.Value = Sum
ActiveCell.Offset(1, 0).Select
Exit Do