Question

Excel表如何将这13个数值(如图)用函数任意三个组合成一个，且不重复，请教各位大神，感激！！！

Answer 1

for a=1 to 3
Rd=rndbetween(1,13)
cells(1, Rd)=cells(1,Rd) & cells(1,Rd)
next

追问

请问怎么操作

追答

alt+f11打开VBA编辑器，双击左侧sheet 1，把代码贴到右侧，并在其前后加上sub test()和end sub。运行此宏！

sub test()
for a=1 to 3
Rd=rndbetween(1,13)
cells(1,2)=cells(1,2) & cells(Rd,1)
next
end sub

a列是组合元素，b1是组合结果。