Question

求助：EXCEL VBA中165个号码全排列怎么做？

在EXCEL中，用VBA做165个数字的全排列，只要输出200中即可。
每一种排列纵向排列，求高手指导啦~~~或者有直接做好的给我也可以，谢谢大家

Answer 1

一共有10的295次方个数字，你不可能算出来的。
用亚马逊也要好几年

哦，你只要200个就够了？
用轮盘法
定义一个数组A保存1~165个数，数组B用来标记A，数组C用来保存结果
随机在数组A中抽取数字，
如果未抽取过的，在数组B中标记，并把这个数字写在数组C中
如果抽取过的，取A的向后顺位，如果还是抽取过的再顺位，到最后一个数字时回到第一个
抽取了165次后，数组C为结果
用数组C在以前的结果中寻找，如果有相同的抛弃这个结果，没有保存到表中
直到找到200个排列

Answer 2

不明白你的意思，能不能举个例子啊！

追问

A1到A165中存放着1-165这些数字，我想将这165数字全排列在B1开始的单元格中，每一种排列为一列，只要随意输出200种排列就可以了

追答

你意思就是排列的顺序打乱？用200用方法？

追问

对啊对啊，就是这个意思，终于有人明白了。乱序排出200个排法

追答

这个真是没有搞过，我想想看，函数里有个rand函数好像可以利用下
我感觉很难，一般都是找规律，你这是打乱规律

Answer 3

将这165数字全排列在B1开始的单元格中，是什么意思？
比如：4,5,6,7，。。。。一直排到165,3,2,1这样？

追问

是的是的