n取m 自定义函数 随机 组合 排列 分组 分配

yjh_27

本组自定义函数，含有（使用）nyuchuli的，
n、n0参数配合，使得元素n除数字外，还可以：
'           n【参数1】为字符时：
'           =1      以" " 分列n
'           =2      以"," 分列n
'           =3      以"." 分列n
'           n【参数1】为数组时：
'           =0      全部为n【参数1】；
'           >0      n0列的各行 为n【参数1】；
'           <0      n0行的各列 为n【参数1】

yjh_27

应用
求单元格数据全排列的vba程序  20L
http://club.excelhome.net/thread-928208-1-1.html
(出处: ExcelHome技术论坛)


应用代码简单

1. Sub aa()
   
2. r = Range("b" & Rows.Count).End(xlUp).Row
   
3. arr = Range("b2:b" & r)                 '源数据
   
4. For i = 1 To UBound(arr)
   
5.     brr = Split(Trim(arr(i, 1)))
   
6.     'crr = ArrPC(brr, UBound(brr) + 1, 23)               '生成全排列
   
7.     'crr = ArrPC(Trim(arr(i, 1)), UBound(brr) + 1, 23)   '生成全排列
   
8.     crr = ArrPC(Trim(arr(i, 1)), -1, 23)    '生成全排列
   
9.     Range("d2").Offset(0, i - 1).Resize(UBound(crr) + 1, 1) = crr   '输出
   
10. Next
    
11. End Sub

复制代码

注意举例的三种的代码可任选其一

FOB_FN_L

yjh_27 发表于 2020-3-21 17:44
应用
求单元格数据全排列的vba程序  20L
http://club.excelhome.net/thread-928208-1-1.html

你引的这个20L的这个刚看完~~~

FOB_FN_L

大佬应该没试着站在EXCEL的VBA之外再来看EXCEL中的一些问题解决之法么，比如：在EXCEL的VBA中要想查找某个盘符下的文件中的某个特定的字符串内容，这在EXCEL的VBA中是很难做到快速的~~~只是EH的贴子翻的看的多了，很多EH中的大佬跳出后都认为VBA太局限了，这一点您先不用反驳我，可以看下那些VBA版块离职的那些大佬，还有用VSTO写EXCEL插件功能的大佬们，应该都是观点一致的~~~~~看了您发过的贴子，您和那个AOE181大佬一样，都是高人中的高人那种的

yjh_27

扩充7L 功能，可指定各元素使用次数。

题目来源：
求助：如何将字母根据出现次数随机分布到各列
http://club.excelhome.net/thread-1535660-1-1.html
(出处: ExcelHome技术论坛)

yjh_27

题目来源
列出组合函数
http://club.excelhome.net/thread-1555643-1-1.html
(出处: ExcelHome技术论坛)




补充内容 (2020-12-28 08:42):
应用实例
五个数按要求排列组合
http://club.excelhome.net/thread-1569294-1-1.html
(出处: ExcelHome技术论坛)

WYS67

yjh_27 发表于 2020-9-12 14:15
题目来源
列出组合函数
http://club.excelhome.net/thread-1555643-1-1.html

不同数目的元素全排列，各组合出现的概率.zip (29.54 KB, 下载次数: 28)

2020-9-20 13:47 上传

点击文件名下载附件

老师：再次向您请教一个问题：如上图所示，如果有一个通用的数学公式，可以计算出B列64个不同号码各自出现的概率；那么这个通用的数学公式是什么？怎样才能在C5:C68里显示B5:B68里各个号码的出现概率？

yjh_27

WYS67 发表于 2020-9-20 13:50
老师：再次向您请教一个问题：如上图所示，如果有一个通用的数学公式，可以计算出B列64个不同号 ...

参见附件。

WYS67

yjh_27 发表于 2020-9-20 14:37
参见附件。

非常感谢老师，预祝老师双节快乐！

yjh_27

完善随机 函数

题目来源
请求各位老师协助，如何实现不重复的随机排班。
http://club.excelhome.net/thread-1573262-1-1.html
(出处: ExcelHome技术论坛)


求一个将二列数据随机打乱顺序的vba
http://club.excelhome.net/thread-1574597-1-1.html
(出处: ExcelHome技术论坛)