按关键词，行号位置提取数据

飞天篮球猪

供参考...

一烟难禁

好久没有答题了,凑个数

佛山小老鼠

学习了10楼的方法，我也写了一次，活到老，学到老

1. Option Explicit
   
2. Sub test()
   
3.   Dim arr1, arr2, Dic, x, arr3
   
4.   Dim arr4(1 To 10000, 1 To 3), y, k
   
5.   Set Dic = CreateObject("Scripting.dictionary")
   
6.   arr1 = Range("A1").CurrentRegion
   
7.   arr2 = Range("D1").CurrentRegion
   
8.   For x = 2 To UBound(arr2)
   
9.     arr3 = Split(arr2(x, 2), "-")
   
10.     For y = arr3(0) To arr3(1)
    
11.       If Not Dic.exists(y) Then
    
12.         k = k + 1
    
13.         Dic(y) = ""
    
14.         arr4(k, 1) = arr2(x, 1)
    
15.         arr4(k, 2) = arr1(y, 1)
    
16.         arr4(k, 3) = arr1(y, 2)
    
17.       End If
    
18.     Next y
    
19.   Next x
    
20.   [G2].Resize(k, 3) = arr4
    
21. End Sub
    

复制代码

ggmmlol

1. Sub ggmmlol()
   
2.     Dim ar, i&, ss, d&, r&
   
3.     ar = Range("D1").CurrentRegion
   
4.     Range("G1").CurrentRegion.Offset(1).Clear
   
5.     d = 2
   
6.     For i = 1 To UBound(ar)
   
7.         ss = Split(ar(i, 2), "-")
   
8.         r = r + d '开始行号
   
9.         d = ss(1) - ss(0) + 1 '行数
   
10.         Range("H" & r).Resize(d, 2).Value = Range("A" & ss(0)).Resize(d, 2).Value
    
11.         Range("G" & r).Resize(d).Value = ar(i, 1)
    
12.     Next
    
13. End Sub

复制代码

你是那块小饼干

1. =LET(序号,SEQUENCE(COUNTA(A2:A57),,2),T,DROP(REDUCE("",D1:D3,LAMBDA(X,Y,VSTACK(X,IFNA(HSTACK(Y,SEQUENCE(SUM(TEXTSPLIT(OFFSET(Y,,1),"-",,1)*{-1,1},1),,INDEX(TEXTSPLIT(OFFSET(Y,,1),"-",,1),1))),Y)))),1),HSTACK(XLOOKUP(UNIQUE(INDEX(T,,2)),INDEX(T,,2),INDEX(T,,1)),XLOOKUP(UNIQUE(INDEX(T,,2)),序号,A2:A57),XLOOKUP(UNIQUE(INDEX(T,,2)),序号,B2:B57)))

复制代码

风中的我脸

练习一下，先上一个

1. =LET(
   
2.     pick, LAMBDA(tnum, lnum, name,
   
3.         LET(
   
4.             adata, A:B,
   
5.             looparr, SEQUENCE(tnum - lnum + 1, 1, lnum),
   
6.             DROP(
   
7.                 REDUCE(
   
8.                     "",
   
9.                     looparr,
   
10.                     LAMBDA(acc, a, VSTACK(acc, HSTACK(name, INDEX(adata, a, 1), INDEX(adata, a, 2))))
    
11.                 ),
    
12.                 1
    
13.             )
    
14.         )
    
15.     ),
    
16.     query, D1:E3,
    
17.     table, DROP(
    
18.         REDUCE(
    
19.             "",
    
20.             SEQUENCE(ROWS(query)),
    
21.             LAMBDA(acc, a, VSTACK(acc, HSTACK(TEXTSPLIT(INDEX(query, a, 2), "-"))))
    
22.         ),
    
23.         1
    
24.     ),
    
25.     maketable, HSTACK(CHOOSECOLS(query, 1), SCAN(0, table, LAMBDA(acc, a, IF(a > acc, a, acc + 1)))),
    
26.     res, REDUCE(
    
27.         {"姓名", "号码", "套餐"},
    
28.         SEQUENCE(ROWS(maketable)),
    
29.         LAMBDA(acc, a,
    
30.             VSTACK(acc, pick(INDEX(maketable, a, 3), INDEX(maketable, a, 2), INDEX(maketable, a, 1)))
    
31.         )
    
32.     ),
    
33.     res
    
34. )

复制代码

wj65134

=HSTACK(REDUCE("姓名",D1:D3,LAMBDA(x,y,VSTACK(x,EXPAND(y,RIGHT(OFFSET(y,,1),2)-ROWS(x),,y)))),TAKE(A1:B57,MAX(--RIGHT(E1:E3,2))))