Question

Excel单元格数值选取随机填入另外的单元格，要求不重复。

A1 A2 A3 A4 A5 A6单元格各有一个不同的数值，要求将这几个单元格的数值分别随机填入H2 H8 I8 K10 K11单元格，引用数值的位置不是固定的，即A1不一定是一定填入H2，H2也可以引用A2或者A3A4等单元格的数值，但一个数值不可重复被引用。有函数可以解决吗？

Answer 1

真实的要求与提问完全一致吗？感觉这个问题好特别的，填写随机数的目标单元格还是跳跃式的，这就只能一个单元格一个公式了。

1. 因为随机数函数是易失性函数，即函数得到的数据在工作表有相关的操作时，如输入数据，运算等，函数结果会失去原来的数据，产生新的数据。所以要先在选项的公式选项卡，勾选“启用迭代计算”后确定。

2. 五个单元格的公式分别为：

H2=IF(OR(H2={"",0}),INDEX(A1:A6,RANDBETWEEN(1,6)),H2)

即H2先取A1:A6中的任意数据

H8=IF(OR(H8={"",0},H8=H2),INDEX(A1:A6,RANDBETWEEN(1,6)),H8)

即H8取A1:A6除H2已取走的数据后的任意数据（下面的公式类似，不再说明）

I8=IF(OR(I8={"",0},I8=H2,I8=H8),INDEX(A1:A6,RANDBETWEEN(1,6)),I8)

K10=IF(OR(K10={"",0},K10=H2,K10=H8,K10=I8),INDEX(A1:A6,RANDBETWEEN(1,6)),K10)

K11=IF(OR(K11={"",0},K11=H2,K11=H8,K11=I8,K11=K10),INDEX(A1:A6,RANDBETWEEN(1,6)),K11)

追问

感谢你的细致解答，迟些我验算试试，谢谢你。

Answer 2

H2 H8 I8 K10 K11单元格各输入
=INDEX($A$1:$A$5,RAND()*5+1)
回车，按F9可更新数据，用随机函数，难免会出现重复，可多按F9找个你要的组合。

追问

抱歉，这个不太适合。就是一堆数据，随机放入几个单元格，一个单元格引用其中的一个数据，不是要找组合，一堆数据里面，每次要仔细瞅，比对是否有重复引用，就不能行了。没有其他函数可以吗？判断甄别的，组合函数。

追答

我说的组合，就是A1~A5（咦！你是到A6？）随意分配到那些单元格里面，不是组合在一起。
对比重复，用公式判断，可以不用每次仔细瞅：
区域外输入
=IF(COUNT(IF(COUNTIF(H2:K11,H2:K11)>1,H2:K11))=0,"对","错")
数组公式，输入后先不要回车，按Ctrl+Shift+Enter结束计算。

追问

首先很感谢你的解答。只是这个看起来就不适用。因为我看到你没有写出我表面的单元格代号。我这个是一个表格，很多数据，例举的A1A2A3A4A5A6以及H2H8I8K10K11，都是举例的，这些区域内是有其他数据的。你这个公式看起来是判定区域内是否有数据的，关键是区域内很多其他数据呢。个人感觉可以用多级IF套用多层判定，但，还是好麻烦的感觉。没有简单一些的函数组合的吗？

追答

因为你的区域较为分散，没有一道公式可以同时用于集散单元格。
或考虑用3楼的迭代计算（略），但启用迭代之后就无法更新数据，失去随机意义。

自己定夺吧。

Answer 3

Sub test()
Set d=CreateObject(“Scrioting.Dictionary”)
k=1
Do until k=10
a=Rnd()
If not d.exists(a) then
Cells(k,1)=a
d(a)=“”
k=k+1
End if
Loop
End Sub

Answer 4

回车，按F9可更新数据，用随机函数，难免会出现重复，可多按F9找个你要的组合。