ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

EH搜索     
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 Office知识技巧免费学 打造核心竞争力的职场宝典
300集Office 2010微视频教程 Tableau-数据可视化工具 精品推荐-800套精选PPT模板,点击获取 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
查看: 230|回复: 0

[求助] VBA求修改,香川多列组合怎样得到后一列数字一定比前一列数字大的组合即01234567,1...

[复制链接]

TA的精华主题

TA的得分主题

发表于 2020-1-14 03:57 | 显示全部楼层 |阅读模式
Dim sj, jg(), m&, n&, k&
Sub MultiColumnCombin() 'by kagawa 香川多列组合
    Dim i&, j&, t&, tms#
    tms = Timer
   
    sj = [a1].CurrentRegion '以A1所在单元格区域为多列组合对象 数据读入数组sj
    m = UBound(sj): n = UBound(sj, 2) '获取最大行数m 和最大列数n
    k = 1 '组合总数k 初始值=1
    For j = 1 To n '遍历各列
        t = 0 '本列元素个数t 初始化
        For i = 1 To m '遍历本列各行
            If sj(i, j) <> "" Then t = t + 1
        Next
        k = k * t '计算组合总数
    Next
    ReDim jg(k, 1 To n) '根据计算组合总数定义结果数组jg
   
    k = 0: Call dgMN(1)  '调用递归计算过程 注意计数值k要初始化=0
   
    With [a1].Offset(, n + 2) '选择比原始数据隔开2列的单元格作为输出结果的起始位置
        .CurrentRegion = "" '清空输出区域
        .Resize(k, n) = jg '输出结果
    End With
   
    MsgBox Format(Timer - tms, "0.000s ") & k '耗时以及组合结果总数k
End Sub
Sub dgMN(j&) '递归计算过程 (参数j为递归进入的列位置)
    Dim i&, j1&, t
    For i = 1 To m '遍历各行
        t = sj(i, j) '读取该行该列位置的内容
        If t = "" Then
            Exit For '如果该位置为空白单元格即可提前退出。(如需强行计算则注销本句)
        Else
            jg(k, j) = t '在结果数组jg中对应列位置记录本次递归计算得到的组合结果
            If j = n Then '如果已到最后一列n列 则可确定本次组合结果
                For j1 = 1 To n '把当前组合结果传递到下一组合
                    If jg(k, j1) <> "" Then Exit For Else jg(k, j1) = jg(k - 1, j1)
                Next
                k = k + 1 '结果数组jg的计数k序号参数+1 更新记录位置进入下一行。
            Else
                Call dgMN(j + 1) '如果还没到最后1列n列 则继续递归进入到下一列。
            End If
        End If
    Next
End Sub

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,每天学会一个新技能

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

GMT+8, 2020-5-28 16:12 , Processed in 1.090247 second(s), 26 queries , Gzip On.

Powered by Discuz! X3.4

© 1999-2020 Wooffice Inc.

   

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

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

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