指定条件随机抽取不重复数据，请大佬帮忙，谢谢

liuxd128

只会用简单的公式，如图抽到的数据重复的可能太大，请老师帮忙改成vba或改公式，万分谢谢!


一对多随机查找不重复数据1.rar (59.66 KB, 下载次数: 13)

2023-4-13 01:26 上传

点击文件名下载附件

剑指E

E2:
=LET(a,UNIQUE($B$2:$B$1171),SORTBY(a,RANDARRAY(COUNTA(a))))
F2:
=IF(E2="","",LET(a,FILTER($C$2:$C$1171,$B$2:$B$1171=$E2),TOROW(TAKE(SORTBY(a,RANDARRAY(COUNTA(a))),3))))
下拉

grf1973

。。。。。。。

清风竹-

参与一下。

nevercool

'随机不重复抽取数据

liuxd128

grf1973 发表于 2023-4-13 10:10
。。。。。。。

老师，换成别的要处理的数据时会无限循环在if not d2.exists(xx) then这一步，是什么原因呢？

liuxd128

清风竹- 发表于 2023-4-13 11:15
参与一下。

老师，替换数据后无限循环到这一步loop until d.count=1，请问是什么原因？

清风竹-

liuxd128 发表于 2023-4-17 02:27
老师，替换数据后无限循环到这一步loop until d.count=1，请问是什么原因？

Loop Until d.Count = l ,  l = [e1].End(2).Column - 5 就是第一行标题列数。现在看来这两句还不够完善，如果有的人的数据数少于列数，会产生错误。请看附件，已修改。