批量 转置合并

一哥陈

沈默00 发表于 2025-4-11 16:45
一次做完，
=GROUPBY(SCAN(,Sheet1!A2:A275,LAMBDA(x,y,IF(y="",x,y))),Sheet1!C2:C275,LAMBDA(x,TEXTJOIN ...

为什么我的会出现“#NAME?”

沈默00

一哥陈 发表于 2025-4-14 08:10
为什么我的会出现“#NAME?”

版本不够，，需要365或WPS新版

ykcbf1100

参与一下，VBA解决方案

ykcbf1100

1. Sub ykcbf()   '//2025.4.14
   
2.     With Sheets("Sheet1")
   
3.         r = .Cells(Rows.Count, 3).End(3).Row
   
4.         arr = .[a1].Resize(r, 3)
   
5.     End With
   
6.     ReDim brr(1 To r, 1 To 2)
   
7.     ReDim zrr(1 To 1000)
   
8.     bt = 1: col = 1
   
9.     For i = bt + 1 To UBound(arr)
   
10.         If arr(i, col) <> Empty Then k = k + 1: zrr(k) = Array(i, i)
    
11.         zrr(k)(1) = i
    
12.     Next
    
13.     For x = 1 To k
    
14.         r1 = zrr(x)(0): r2 = zrr(x)(1)
    
15.         n = r2 - r1 + 1
    
16.         m = m + 1
    
17.         brr(m, 1) = arr(r1, 1)
    
18.         st = arr(r1 + 1, 3)
    
19.         For i = r1 + 2 To r2
    
20.             st = st & "、" & arr(i, 3)
    
21.         Next
    
22.         brr(m, 2) = st
    
23.     Next
    
24.     With Sheets("Sheet2")
    
25.         .UsedRange.Offset(1) = Empty
    
26.         .[a2].Resize(m, 2) = brr
    
27.         .[a2].Resize(m, 2).Borders.LineStyle = 1
    
28.     End With
    
29. End Sub
    
30. 
    

复制代码