ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 1121|回复: 21

[求助] 0~15 16位数,生成指定值“0”开头的9位所有不重复号段组合...

[复制链接]

TA的精华主题

TA的得分主题

发表于 2023-12-7 10:01 | 显示全部楼层 |阅读模式
本帖最后由 boy23 于 2023-12-7 10:01 编辑

1、0~15  16位数,生成指定值“0”开头的9位所有不重复号段组合。数值“0”开头组合有:6435组
2、使用分隔符号“,”进行分隔。如:0,1,2,3,4,5,6,7,8
3、每次以1073组组合,新建一文本文档进行分批输出保存。

TA的精华主题

TA的得分主题

发表于 2023-12-7 11:36 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
理论上,应该有 15*14*13*12*11*10*9*8=259459200 种组合。

TA的精华主题

TA的得分主题

发表于 2023-12-7 11:56 | 显示全部楼层
titi012 发表于 2023-12-7 11:36
理论上,应该有 15*14*13*12*11*10*9*8=259459200 种组合。

大部分类似需求,提出者都没有计算过组合数量。。。

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-12-7 12:39 来自手机 | 显示全部楼层
titi012 发表于 2023-12-7 11:36
理论上,应该有 15*14*13*12*11*10*9*8=259459200 种组合。

只是组合输出开头为0的结果

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-12-7 12:48 来自手机 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
morpheus126 发表于 2023-12-7 11:56
大部分类似需求,提出者都没有计算过组合数量。。。

计算过。就是16选9数值0的所有不重复排列组合结果,有6435组

TA的精华主题

TA的得分主题

发表于 2023-12-7 14:47 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
Sub TestSub()
   
    Set d = CreateObject("scripting.dictionary")
    For i1 = 1 To 15
        For i2 = i1 + 1 To 15
            For i3 = i2 + 1 To 15
                For i4 = i3 + 1 To 15
                    For i5 = i4 + 1 To 15
                        For i6 = i5 + 1 To 15
                            For i7 = i6 + 1 To 15
                                For i8 = i7 + 1 To 15
                                    s = i1 & "," & i2 & "," & i3 & "," & _
                                    i4 & "," & i5 & "," & i6 & "," & i7 & "," & i8
                                    d(0 & "," & s) = ""
                                Next i8
                            Next i7
                        Next i6
                    Next i5
                Next i4
            Next i3
        Next i2
    Next i1
    Range("a1").Resize(d.Count) = Application.Transpose(d.keys)
    Range("c1") = d.Count
End Sub

TA的精华主题

TA的得分主题

发表于 2023-12-7 15:28 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
boy23 发表于 2023-12-7 12:48
计算过。就是16选9数值0的所有不重复排列组合结果,有6435组

我确实有点糊涂了,楼主为什么说6435组呢?
具体是怎么算出来的?
你说说方法

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2023-12-7 17:58 | 显示全部楼层
这个我不敢测试,怕卡住了。

  1. Sub text()
  2.     Dim Fso As Object, Ostream As Object
  3.     Dim txtName As String
  4.     Set Fso = CreateObject("Scripting.FileSystemObject")
  5.     txtName = ThisWorkbook.Path & "\组合列表.txt"
  6.     Set Ostream = Fso.CreateTextFile(Filename:=txtName, overwrite:=True)
  7.     Dim a%, b%, c%, d%, e%, f%, g%, h%, xStr As String
  8.     For a = 1 To 15: For b = 1 To 15: For c = 1 To 15: For d = 1 To 15: For e = 1 To 15: For f = 1 To 15: For g = 1 To 15: For h = 1 To 15
  9.         If b <> a And c <> a And c <> b And d <> a And d <> b And d <> c And e <> a And e <> b And e <> c And e <> d And _
  10.           f <> a And f <> b And f <> c And f <> d And f <> e And g <> a And g <> b And g <> c And g <> d And g <> e And g <> f _
  11.           And h <> a And h <> b And h <> c And h <> d And h <> e And h <> f And h <> g Then
  12.             xStr = "0、" & a & "、" & b & "、" & c & "、" & d & "、" & e & "、" & f & "、" & g & "、" & h
  13.             Ostream.WriteLine xStr
  14.         End If
  15.     Next h, g, f, e, d, c, b, a
  16.     Set Ostream = Nothing
  17.     Set Fso = Nothin
  18. End Sub
复制代码

TA的精华主题

TA的得分主题

发表于 2023-12-7 18:01 来自手机 | 显示全部楼层
titi012 发表于 2023-12-7 15:28
我确实有点糊涂了,楼主为什么说6435组呢?
具体是怎么算出来的?
你说说方法

C(15,8)=6435。组合

TA的精华主题

TA的得分主题

发表于 2023-12-7 18:02 | 显示全部楼层
titi012 发表于 2023-12-7 17:58
这个我不敢测试,怕卡住了。

某种意义上。。。这算是个病毒了
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-12-14 06:40 , Processed in 0.056755 second(s), 9 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表