excel中怎么将13个词组取其中5个词组进行排列组合,并列出所有组合词组

2026年09月20日 06:45
有2个网友回答
网友(1):

在一个空白工作表,按ALT+F11,点右键插入一个模块,输入如下内容,按F5。SubMacro1()DimArr1(1To5),Arr2(1To120,1To5)RandomizeFori=1To5Arr1(i)=Int(Rnd*11+1)Nexta=1Fori=1To5Forj=1To5Ifj=iThenElseFork=1To5Ifk=iOrk=jThenElseForl=1To5Ifl=iOrl=kOrl=jThenElseForm=1To5Ifm=iOrm=jOrm=kOrm=lThenElseArr2(a,1)=Arr1(i)Arr2(a,2)=Arr1(j)Arr2(a,3)=Arr1(k)Arr2(a,4)=Arr1(l)Arr2(a,5)=Arr1(m)a=a+1EndIfNextEndIfNextEndIfNextEndIfNextNextRange(Cells(1,"A"),Cells(120,"E"))=Arr2EndSub

网友(2):

可以的,数据呢