怎样使用excel产生不重复的数据

例如，我自定义一个范围：0-300，然后自定义需要的数字，比如50个，然后可以自动产生50个不重复的整数，希望有高人帮忙帮忙，采纳后再追加50分

在一列 比如 A1:A300 输入 =rand()
然后在 B列 输入：
B1 =MATCH(SMALL(A$1:A$300,ROW(A1)),A$1:A$300,0) 向下复制 想取多少个不重复的 就复制多少个 这样 所得到的数据 就是 在1~300 之间不重复的整数……

=INT(RAND()*300)下拉50行

筛选不重复项的做法，在excel上确实可以用多种方法实现 1.函数法，假设数据是在a列,b1公式如下 =countif($a1:a1,a1)然后再对b使用自动筛选，选出1的值项)就是所有不重复项 2.高级筛选法; 回答者：evan_zheng0663所讲的.不过他的操作是不准确的.求唯一值的话"条件区域"根本就什么都不需要输入.就求唯一值，还要指定前提条件做什么。根本没必要，如果多此一步，还很有可能画蛇添脚. 3.数据透视表法 许多人很怕使用这个东西，其实这它就一工具，看您怎么用。任意点数据里的一个单元格，点数据菜单上的数据透视表，然后直接点完成(前提是您的数据区里没有空行)，在字段列表上将想要那一列拖到左边写着"将行字段拖到此处"的地方，放手。出来的就是这个字段的不重复项. 个人观点：后两个方法时间不相上下，数据透视表法要略胜一筹.有例为证:用高级筛选的话，从点菜单到出结果，鼠标要点击8次，透视表法，从点菜单到出结果只需要4次，加1次拖动.

假定你的50个数放在 A1:A50，则 A1输入公式 =IF(COUNTIF(A$1:A$50,A1)>1,INT(300*RAND()),A1) 向下拖到A50，记得打开迭代计算（工具- 选项- 重新计算……），不要理睬循环引用的提示

Sub MRND() Dim A As Object, N% Set A = CreateObject("SCRIPTING.DICTIONARY") While A.Count <> 300 N = Int(Rnd * 300) A(N) = "" Wend ActiveSheet.[A1].Resize(50, 1) = Application.Transpose(A.KEYS) End Sub ALT+F11，插入模块

在A1、A2分别中输入0、1，选中A1、A2，下拉填充到A301 在地址栏输入B1:B301回车 输入=RAND() CTRL+ENTER 在D1中输入 =A1 选中D1，下拉填充到D50。 选中B列含有数值的单元格 点击常用工具条上的“升序排序”或“降序排序”按钮 D1:D50显示的50个数就是你要的结果。 （每点击一次“升序排序”或“降序排序”按钮，D列就显示50个不重复的符合你要求的整数）。