请老师用公式或VBA，把EFG中的每三行组合，依次放在M列中，谢谢！

cartel

请老师用公式或VBA，把EFG中的每三行组合，依次放在M列中，谢谢！.zip (10.49 KB, 下载次数: 17)

2025-1-1 16:12 上传

点击文件名下载附件

飞天篮球猪

插件解法...仅供参考...

飞天篮球猪

1. =REDUCE("结果",E1:E4,LAMBDA(m,n,VSTACK(m,REDUCE("",OFFSET(n,,,,3),LAMBDA(x,y,TOCOL(x&IF(x="",x,",")&TEXTSPLIT(y,",")))))))

复制代码

哈哈理解

参与一下

土豆0202

1. Sub aa()
   
2. ss = 0
   
3. Set ws = ThisWorkbook.Sheets("Sheet1")
   
4. maxrow = ws.Cells(ws.Rows.Count, "e").End(xlUp).Row
   
5. For m = 1 To maxrow
   
6. n1 = Split(Cells(m, 5), ",")
   
7. n2 = Split(Cells(m, 6), ",")
   
8. n3 = Split(Cells(m, 7), ",")
   
9.   For n1n = 0 To UBound(n1)
   
10.     For n2n = 0 To UBound(n2)
    
11.       For n3n = 0 To UBound(n3)
    
12.       ss = ss + 1
    
13.       Cells(ss, 13) = n1(n1n) & "," & n2(n2n) & "," & n3(n3n)
    
14.       Next
    
15.     Next
    
16.   Next
    
17. Next m
    
18. End Sub

复制代码

gwjkkkkk

gwjkkkkk

请参考附件。。。

ykcbf1100

练习一下。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2025.1.2
   
2.     Application.ScreenUpdating = False
   
3.     arr = [e1].CurrentRegion
   
4.     ReDim brr(1 To 10000, 1 To 1)
   
5.     For i = 1 To UBound(arr)
   
6.         t1 = Split(arr(i, 1), ",")
   
7.         t2 = Split(arr(i, 2), ",")
   
8.         t3 = Split(arr(i, 3), ",")
   
9.         For x = 0 To UBound(t1)
   
10.             For y = 0 To UBound(t2)
    
11.                 For Z = 0 To UBound(t3)
    
12.                     m = m + 1
    
13.                     brr(m, 1) = t1(x) & "," & t2(y) & "," & t3(Z)
    
14.                 Next
    
15.             Next
    
16.         Next
    
17.     Next
    
18.     [m:m] = ""
    
19.     [m1].Resize(m, 1) = brr
    
20.     Application.ScreenUpdating = True
    
21.     MsgBox "OK！"
    
22. End Sub
    

复制代码