0、前提条件：有一个数字列表，或者数字段范围（1~100）；
十余年的黄龙网站建设经验，针对设计、前端、开发、售后、文案、推广等六对一服务，响应快，48小时及时工作处理。成都全网营销推广的优势是能够根据用户设备显示端的尺寸不同，自动调整黄龙建站的显示方式，使网站能够适用不同显示终端，在浏览器中调整网站的宽度，无论在任何一种浏览器上浏览网站，都能展现优雅布局与设计，从而大程度地提升浏览体验。成都创新互联从事“黄龙网站设计”,“黄龙网站推广”以来，每个客户项目都认真落实执行。
1、Randomize '初始化随即函数；
2、用列表或者数组存放待选数据，比如长度为60；
3、利用随机函数抽取数字对应的数据 num=Rnd*60，Ret_Value=List(num)，将选取结果存入结果单元；
4、然后从列表或者数组中去掉这个数据，（避免重复选中）；
5、然后再运行3；
6、直到满意为止。
如果同一列（或者同一行）的话，可以用countif函数作为辅助列（辅助行），当然也可以用条件格式。
否则的话，可以用条件格式或vba。
我还在床上，就只给你思路吧
我是自己写了个函数，将数组传入并返回一个新数组列表
子函数中，先将数组排序sort函数，然后有两个循环，外循环从0到Length，变量i，内循环从i到Length，判断第i个数是否与包括自身的后续数相同，相同就有变量加1，内循环结束条件是找到第一个不同的数，并将外循环i复植为内循环中第一个不同的数的下表。。。
这个是思路，如果不能理解再再追加我给你代码，不过建议自己试试
你看写这个，和你的要求差不多。。。;oldq=1
有程序的~~~你可以参考下~~~
比如数组a。里面有5个值，其中有3个是重复的？
如果这样的话，很好办哦。
新建一个数组b，然后遍历要去除的数组a，
从a中把每一个都取出来，和新建的b里面的去比，如果有相同的，则不放入b，
否则就放入数组b，直到循环结束。