excel中：怎样在每列数据中随机挑选一组组合起来？生成的数据能否不产生重复项？

Question

如：有A列、B列、C列......等等几列，行数有1行、2行、3行......等等几行，组合为：A1、A2、A3、A...，B1、B2、B3、B...，C1、C2、C3、C...，要求列-列固定顺序组合，行-行随机无顺序组合？
列-列的意思是：ABC......等等按此顺序不变组合，不能是BAC或者CBA等改变顺序的；
行-行的意思是：当列是A的时候，可能与行2组合，可能与行1组合，可能和行3组合等等随即组合。

之前的解答为：
=CONCATENATE(INDIRECT("A"&INT(RAND()*21)+1),INDIRECT("B"&INT(RAND()*21)+1),INDIRECT("C"&INT(RAND()*21)+1),INDIRECT("D"&INT(RAND()*21)+1)) 21为行数，可以根据表的具体的行数来更改，这样列数是固定顺序组合的，而行数便是随机的顺序组合了。

能否在此基础之上不产生重复项？
可以仅以三列数据举列
如
A列 B列 C列
一行 1 2 3
二行 A B C
三行 甲 乙 丙

组合出来的结果为：
123 12C 12丙 1B3 1BC 1B丙.......所有数据不重复。

Answer 1

增加一个条件语句就行了：
=if(countif($a$1:$d$21,CONCATENATE(INDIRECT("A"&INT(RAND()*21)+1),INDIRECT("B"&INT(RAND()*21)+1),INDIRECT("C"&INT(RAND()*21)+1),INDIRECT("D"&INT(RAND()*21)+1)))=1,CONCATENATE(INDIRECT("A"&INT(RAND()*21)+1),INDIRECT("B"&INT(RAND()*21)+1),INDIRECT("C"&INT(RAND()*21)+1),INDIRECT("D"&INT(RAND()*21)+1)),CONCATENATE(INDIRECT("A"&INT(RAND()*21)+1),INDIRECT("B"&INT(RAND()*21)+1),INDIRECT("C"&INT(RAND()*21)+1),INDIRECT("D"&INT(RAND()*21)+1)))
意思就是在a1:d21中对当前单元格已经产生的内容的个数做判断，如果结果是1，那么执行=CONCATENATE(INDIRECT("A"&INT(RAND()*21)+1),INDIRECT("B"&INT(RAND()*21)+1),INDIRECT("C"&INT(RAND()*21)+1),INDIRECT("D"&INT(RAND()*21)+1))，如果不是1，也执行=CONCATENATE(INDIRECT("A"&INT(RAND()*21)+1),INDIRECT("B"&INT(RAND()*21)+1),INDIRECT("C"&INT(RAND()*21)+1),INDIRECT("D"&INT(RAND()*21)+1))。这样就能保证不重复了，因为一旦某个单元格的内容在这个区域出现两次或以上，就会重算……

追问

如果只有三列的话应该怎么弄呢，我刚试着调了一下，但是不行，请您再帮我给个只有三列的公式，谢谢

追答

刚才我那个是在A1：D21这个区域去判断了。
但你的意思可能是在其他区域（比如E1：E21）把A、B 、C、D四列中的数值按照你说的规则取出来show，如果是这样。你只需要把$a$1:$d$21这个区域换成$E$1:$E$21就可以了。

Answer 2

Sub a()
Dim a%, b%, c%, d%, k&
k = 1
For a = 1 To 21
    For b = 1 To 21
        For c = 1 To 21
            Cells(k, 5) = Cells(a, 1) & "," & Cells(b, 2) & "," & Cells(c, 3)
            k = k + 1
        Next c
    Next b
Next a
End Sub

ALT+F11——F7——粘贴上面的代码。运行。

这是所有3列数的组合。

追问

还是不行，第一，有重复项。第二，有的时候只取出来两个数字

追答

本回答被提问者采纳

Answer 3

你说这么繁冗、别人看着就头疼