每列随机生成不重复数字，请大神帮忙修改一下代码？

hcm19522

B2:B101{=SMALL(IF(COUNTIF(B$1:B1,$A$2:$A$101)=0,$A$2:$A$101),RANDBETWEEN(1,101-ROW(A1)))

aecn

chxw68 发表于 2023-2-1 10:33
每列没有重复数字，不同列之间有重复。

不好意思，是我审题不严

hcm19522

B2:B22{=SMALL(IF(COUNTIF(B$1:B1,ROW($1:$7))=INT((ROW(A1)-1)/7),ROW($1:$7)),RANDBETWEEN(1,7-MOD(ROW(A1)-1,7)))


D2{=AND(COUNTIF(OFFSET(B2,,,ROW(1:21)),B2:B22)=INT((ROW(1:21)-1)/7)+1)

xicu3d

首先感谢ykcbf1100老师，但是有一个小错误，出现了100，我A列的范围是0~99，你的范围是0~100，不知道哪里出现问题了。

xicu3d

tanglf188 发表于 2023-2-1 11:05
插入随机函数把数据随机打乱，再按顺序取数就行了，绝对不会有重复值。

随机函数提供的数字不稳定，动两下又变了。hcm19522老师还没有理解我的意思，显示的结果也不对。

半百

对调一下？

tanglf188

xicu3d 发表于 2023-2-1 12:30
随机函数提供的数字不稳定，动两下又变了。hcm19522老师还没有理解我的意思，显示的结果也不对。

B列插入随机数，AB列根据B列排序，取A列数，怎么会有不稳定，问题是100个数写100多单元格，能不重复？

xicu3d

半百 发表于 2023-2-1 12:35
对调一下？

对调一下不行，运行不了

xicu3d

tanglf188 发表于 2023-2-1 12:44
B列插入随机数，AB列根据B列排序，取A列数，怎么会有不稳定，问题是100个数写100多单元格，能不重复？

最主要我不习惯这种随机方式，用vba代码可以点击一下随机，而表格rand()函数我随意动一下就变动了，不习惯用。

xicu3d

ykcbf1100 发表于 2023-2-1 10:50
每列应该不会重复了。

我指定范围为0~99，ykcbf1100老师您的代码范围为0~100，而且和我编写的代码一样有重复产生。