上一篇文章，实现了VBA组合功能，本文为VBA排列功能

排列：从n个不同元素中，取出m（m≤n）个元素，按照一定的顺序排成一列，叫做从n个元素中取出m个元素的一个排列，一般称作选排列；当m=n时，这个排列被称作全排列
排列数：从n个不同元素中取出m个不同元素的所有不同排列的个数称为排列种数或称排列数

从1-5共5个数字中选出4个数字，共120种排列，如图（部分截图）
按照上一篇文章“VBA组合函数”尾数循环的方式，观察每个排列的数字排列规律，可以发现每次尾数循环结束后，倒数第2列（即m-1）即进位+1（即2-3行）；当进位列的数字达到最大值（即n）时，继续向前1列（即m-2）进位+1（即6-7行）；当进位后的数字在之前出现过时，数字继续递增+1（即8-9行）；进位结束后，排列在进位点之前的数字不变，之后的数字，按照1-5的顺序填入，且数字不重复；如此循环直至完成120种排列

2，VBA数组排列函数

注意：代码中“排列个数”kk定义为Long类型，故最大值为2,147,483,647，如果实际应用中会超过该值的，需修改数据类型

注意：测试中调用了TransposeArr函数，将一维嵌套数组转为二维数组输出，代码详见

测试在excel表格中输出0-9共10个数字选6的排列形式，共151200种排列，输出结果与python的结果完全一致

3种输出排列方式耗时对比：151200种排列耗时秒数

可以看出，VBA排列输出一维嵌套数组2种写入方式都是非常快的

3，VBA数组重复排列函数

重复排列，相比上面的“选排列”和“全排列”是一种特殊的排列
重复排列：从n个不同元素中可重复地选取m个元素，按照一定的顺序排成一列，称作从n个元素中取m个元素的可重复排列
重复排列个数公式：n ^ m
代码思路：重复排列由于元素可重复使用，因而代码思路类似“选排列”，但仅考虑进位无需判断是否重复，仅原位置重置即可，故此代码较为简单（与10进制数字进位类似）

注意：代码中“排列个数”kk定义为Long类型，故最大值为2,147,483,647，如果实际应用中会超过该值的，需修改数据类型

从1-5共5个数字中重复选出3个数字，共125种排列，如图（部分截图）

我目前正在经历一个奇怪的错误。 我们已经开发了一个被许多人使用的工具，其中一个人在得到一台新电脑后出现问题。 macros打开位于networking上的PPT文件（用户可以访问演示文稿 – 我testing了这个文件）。

该macros在此行失败：

运行时错误-（）：PowerPoint无法打开文件奇怪的是，它适用于除一个用户以外的所有用户。 该平台是Win7和Excel 2010。