WPS数表单维多维重构练习题

我的城市你来过

=VSTACK(D1:F1,GROUPBY($D$1:$D$13,HSTACK($E$1:$E$13,$F$1:$F$13/SUM($F$1:$F$13)),SUM))

我的城市你来过

=LET(a,REDUCE(HSTACK("班级","姓名","科目","成绩"),$C$1:$E$1,LAMBDA(x,y,VSTACK(x,IFNA(HSTACK($A$2:$B$15,y,OFFSET(y,1,,14)),y)))),VSTACK(TAKE(a,1),SORT(DROP(a,1),{1,2,3})))

我的城市你来过

=PIVOTBY($A$2:$A$34,"店员"&MAP($A$2:$A$34,LAMBDA(x,COUNTIF($A2:x,x))),$B$2:$B$34,CONCAT,0,0,,0)

wp231957

我的城市你来过 发表于 2024-9-18 09:43
=PIVOTBY($A$2:$A$34,"店员"&MAP($A$2:$A$34,LAMBDA(x,COUNTIF($A2:x,x))),$B$2:$B$34,CONCAT,0,0,,0)

有没有简单一点的双循环的练习题目  现在双reduce 还没搞懂

cnmlgb9998

wp231957 发表于 2024-9-18 09:51
有没有简单一点的双循环的练习题目  现在双reduce 还没搞懂

超人大神的贴子里去找。

很多的。

槐序三冬

1. Sub rr()
   
2.     Set a = Worksheets(1)
   
3.     x = a.UsedRange.Rows.Count
   
4.     k = 11
   
5.     For ii = 2 To x
   
6.         str_0 = a.Cells(ii, 2)
   
7.         str_1 = a.Cells(ii, 3)
   
8.         str_1 = Replace(Replace(str_1, "【", ""), "】", "")
   
9.         arr = Split(str_0, "+")
   
10.         aarr = Split(str_1, "+")
    
11.         nn = UBound(arr)
    
12.         For i = 0 To nn
    
13.             If InStr(arr(i), "") > 0 Then
    
14.                 brr = Split(arr(i), "")
    
15.                 bbrr = Split(aarr(i), "")
    
16.                 For j = 0 To UBound(brr)
    
17.                     a.Cells(k, 1) = a.Cells(ii, 1)
    
18.                     a.Cells(k, 2) = brr(j)
    
19.                     a.Cells(k, 3) = bbrr(j)
    
20.                     k = k + 1
    
21.                 Next
    
22.             Else
    
23.                 a.Cells(k, 1) = a.Cells(ii, 1)
    
24.                
    
25.                 a.Cells(k, 2) = arr(i)
    
26.                 a.Cells(k, 3) = aarr(i)
    
27.                 k = k + 1
    
28.             End If
    
29.         Next
    
30.     Next
    
31. End Sub

复制代码

槐序三冬

我的城市你来过 发表于 2024-7-22 10:34
20240722分列汇总转一维
=REDUCE($A$1:$C$1,$B$2:$B$4,LAMBDA(x,y,VSTACK(x,CHOOSE({1,2,3},OFFSET(y,,-1) ...

1. Sub rr()
   
2.     Set a = Worksheets(1)
   
3.     x = a.UsedRange.Rows.Count
   
4.     k = 11
   
5.     For ii = 2 To x
   
6.         str_0 = a.Cells(ii, 2)
   
7.         str_1 = a.Cells(ii, 3)
   
8.         str_1 = Replace(Replace(str_1, "【", ""), "】", "")
   
9.         arr = Split(str_0, "+")
   
10.         aarr = Split(str_1, "+")
    
11.         nn = UBound(arr)
    
12.         For i = 0 To nn
    
13.             If InStr(arr(i), "") > 0 Then
    
14.                 brr = Split(arr(i), "")
    
15.                 bbrr = Split(aarr(i), "")
    
16.                 For j = 0 To UBound(brr)
    
17.                     a.Cells(k, 1) = a.Cells(ii, 1)
    
18.                     a.Cells(k, 2) = brr(j)
    
19.                     a.Cells(k, 3) = bbrr(j)
    
20.                     k = k + 1
    
21.                 Next
    
22.             Else
    
23.                 a.Cells(k, 1) = a.Cells(ii, 1)
    
24.                
    
25.                 a.Cells(k, 2) = arr(i)
    
26.                 a.Cells(k, 3) = aarr(i)
    
27.                 k = k + 1
    
28.             End If
    
29.         Next
    
30.     Next
    
31. End Sub

复制代码

我的城市你来过

=IF($D2>0,REPTARRAY($A$2:$A$7,$D$2),REDUCE("",$A$2:$A$7,LAMBDA(x,y,VSTACK(x,REPTARRAY(y,$D$1)))))

我的城市你来过

跨表汇总数据
=REDUCE(0,{"表一","表二"},LAMBDA(x,y,x+SUM((INDIRECT(y&"!A4:A20")=$A4)*(INDIRECT(y&"!b3:G3")=C$3)*(INDIRECT(y&"!b4:G20")))))