多行变成一行

pgp5866

你最后需要实现怎么样的效果，自己手动模拟一下，要不然不知道你想要的最终效果，

pgp5866

你结论后面多了那么多数据 ，原来的数据 一行没有少，反而还多了，不知道你想要的最终效果是啥样的？

pgp5866

=LET(s,TRANSPOSE(UNIQUE(C2:C30)),REDUCE(HSTACK(A1:B1,s),UNIQUE(B2:B30),LAMBDA(x,y,VSTACK(x,LET(t,FILTER(A2:D30,B2:B30=y),HSTACK(TAKE(t,1,2),XLOOKUP(s,CHOOSECOLS(t,3),CHOOSECOLS(t,4),"")))))))

袁勇

上万行的数据量，非函数方法效率高。

2个数的是加总？还是取其中一个？

袁勇

mzx1987mzx

  2023-11-20 22:04
VBAο

1. Sub()
   
2. Worksheets(1).Name =
   
3. Worksheets. Add().Name=
   
4. Dim d(1), arr, m&, n&,i&, s$, s1$
   
5. For i = 0 To UBound(d)
   
6.     Set d(i) = Create0bject("scripting, dictionary")
   
7. Next
   
8. arr = Worksheets("").[a1].CurrentRegion
   
9. m=1:n=3
   
10. ReDim brr(1 ToUBound(arr), 1 To50)
    
11. For i = 2 To UBound(arr)
    
12.     s=arr(i, 11): s1 = arr(i,12)
    
13.     I£ d(0)(s)=0 Then
    
14.         m=m+1
    
15.         d(0)(s) =m
    
16.         brr(m, 1) =arr(i,1)
    
17.         brr(m, 2) =are(i,8)
    
18.         brr(m, 3) =s
    
19.     End If
    
20.     If d(1)(s1)=0 Then
    
21.         n=n+1
    
22.         d(1)(s1) = n
    
23.         brr(1,n) = arr(i,12)
    
24.     End If
    
25.     For j-4 To n
    
26.         brr(d(0)(s), d(1)(s1)) = arr(i, 13)
    
27.     Next
    
28. Next
    
29. With Worksheets().[a1]
    
30.     Resize(m, n)=brr
    
31.     .Resize(m, n).Borders.LineStyle=1
    
32.     .Resize(1, 3) = Split("е )
    
33. End With
    
34. End Sub

复制代码

mzx1987mzx

袁勇 发表于 2023-11-22 15:17

我用11楼的VBA代码改了一下

1. Sub获取化学()
   
2. Worksheets(1).Name =“源”
   
3. Worksheets. Add().Name=“处理后”
   
4. Dim d(1), arr, m&, n&,i&, s$, s1$
   
5. For i = 0 To UBound(d)
   
6.     Set d(i) = Create0bject("scripting, dictionary")
   
7. Next
   
8. arr = Worksheets("源").[a1].CurrentRegion
   
9. m=1:n=3
   
10. ReDim brr(1 ToUBound(arr), 1 To50)
    
11. For i = 2 To UBound(arr)
    
12.     s=arr(i, 11): s1 = arr(i,12)
    
13.     I£ d(0)(s)=0 Then
    
14.         m=m+1
    
15.         d(0)(s) =m
    
16.         brr(m, 1) =arr(i,1)
    
17.         brr(m, 2) =are(i,8)
    
18.         brr(m, 3) =s
    
19.     End If
    
20.     If d(1)(s1)=0 Then
    
21.         n=n+1
    
22.         d(1)(s1) = n
    
23.         brr(1,n) = arr(i,12)
    
24.     End If
    
25.     For j-4 To n
    
26.         brr(d(0)(s), d(1)(s1)) = arr(i, 13)
    
27.     Next
    
28. Next
    
29. With Worksheets(”处理后”).[a1]
    
30.     Resize(m, n)=brr
    
31.     .Resize(m, n).Borders.LineStyle=1
    
32.     .Resize(1, 3) = Split("委托单 炉批号化学编号”)
    
33. End With
    
34. End Sub

复制代码

mzx1987mzx

袁勇 发表于 2023-11-22 14:50
上万行的数据量，非函数方法效率高。

2个数的是加总？还是取其中一个？

一个是Mo，一个是Mn,应该是我写错了。非常感谢提供的代码。

橒♂蝣

辅助列E1:M1=TRANSPOSE(UNIQUE(C2:C30)),
E2下拉：=LET(x,TRANSPOSE(FILTER(C:D,B:B=B2)),
y,TRANSPOSE(UNIQUE(C2:C30)),
r,MAP(y,LAMBDA(m,FILTER(INDEX(x,2),INDEX(x,1)=m,""))),
r