17个项目中抽出4个的组合

比翼双飞880717

如图及附件所示，请大家帮忙实现效果，可能VBA更好实现，所以就发VBA版块了，谢谢大家！

x-xx-xx

gwjkkkkk

Option Explicit
Sub test()
    Dim i&, dr(), er(), vResult(), t#, r&
   
    t = Timer
    dr = Application.Transpose(Range("A2", Cells(Rows.Count, "A").End(xlUp)).Value)

    ReDim er(1 To [B1].Value)
    ReDim vResult(1 To WorksheetFunction.Combin(UBound(dr), [B1].Value), 1 To [B1].Value)
    combinArr dr, er, vResult, [B1].Value, r

    [E1].CurrentRegion.Clear
    With [E1].Resize(UBound(vResult), [B1].Value)
        .Value = vResult
        .EntireColumn.AutoFit
    End With
   
    MsgBox "执行完毕!_用时:  " & Format(Timer - t, "0.00") & "  秒,共发现 " & UBound(vResult) & " 组组合", 64
End Sub
Function combinArr(ByRef ar(), ByRef br(), ByRef cr(), ByVal n&, Optional ByRef iGroup&, Optional ByVal iStart&, Optional ByVal iNum& = 1)
    Dim i&, j&
    For i = iStart + 1 To UBound(ar) - n + iNum
        If iNum < n Then
           br(iNum) = ar(i)
           Call combinArr(ar, br, cr, n, iGroup, i, iNum + 1)
        Else
           br(iNum) = ar(i)
           iGroup = iGroup + 1
           For j = 1 To n
              cr(iGroup, j) = br(j)
           Next
        End If
    Next
End Function

gwjkkkkk

请参考附件。。。

x-xx-xx

比翼双飞880717

gwjkkkkk 发表于 2024-4-16 19:38
请参考附件。。。

感谢大神，太厉害了！

比翼双飞880717

x-xx-xx 发表于 2024-4-16 19:54

你好，能上传下附件吗？我要研究一下

yjh_27

自定义函数。




n取m 自定义函数 随机 组合 排列 分组 分配
https://club.excelhome.net/thread-1526867-1-1.html
(出处: ExcelHome技术论坛)

比翼双飞880717

yjh_27 发表于 2024-4-16 22:05
自定义函数。

感谢大神！

LIUZHU

JSA代码参与下

1. function 生成排列组合(){
   
2.         let szarr=Range("a2:a18").Value2.flat();
   
3.         let arr=plzh(szarr,"组合",4);
   
4.         Range("c:c").ClearContents();
   
5.         Range("c1").Resize(arr.length,arr[0].length).Value2=arr;
   
6. }
   
7. 
   
8. function plzh(szarr,type,m){
   
9.         let arr=[["组合结果"]],temp=[],len=szarr.length;
   
10.         let getplzh=(k)=>{
    
11.                 szarr.forEach((x,i)=>{
    
12.                         if (i<k || temp.includes(x)) return;
    
13.                         temp.push(x);
    
14.                         if (temp.length==m){
    
15.                                 arr.push([temp.join("、")]);
    
16.                                 temp.splice(temp.length-1);                //去掉尾部
    
17.                                 return;
    
18.                         }
    
19.                         getplzh(type=="组合"?i+1:0);
    
20.                 });
    
21.                 temp.splice(temp.length-1);                                //去掉尾部
    
22.         }
    
23.         getplzh(0);
    
24.         return arr;
    
25. }

复制代码