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

a184218000

要求:A,B列是数据源，D,E列是检索条件，G,H,I列是返回结果
怎么根据D,E列的检索条件，在A,B列里检索符合条件自动返回到G,H,I列
比如张三，2-21：意思就是检索A,B列的第2到21行返回到H,I列，然后2-21总共有20行，G列就返回20个张三
如果有重复的话需要删除，比如李四，19-25，因为张三已经有19,20,21行了，所以李四就要按22-25的算

飞天篮球猪

供参考...

a184218000

飞天篮球猪 发表于 2024-10-4 14:10
供参考...

没有这个函数

飞天篮球猪

a184218000 发表于 2024-10-4 14:38
没有这个函数

需要下载这个才能用

leepoison

1. =LET(a,DROP(REDUCE("",D1:D3,LAMBDA(x,y,VSTACK(x,VSTACK(IFNA(HSTACK(y,CHOOSEROWS(A:B,ROW(INDIRECT(SUBSTITUTE(OFFSET(y,,1),"-",":"))))),y))))),1),REDUCE({"姓名","号码","套餐"},UNIQUE(CHOOSECOLS(a,2)),LAMBDA(m,n,VSTACK(m,VSTACK(TAKE(FILTER(a,CHOOSECOLS(a,2)=n),1))))))

复制代码

a184218000

leepoison 发表于 2024-10-4 15:52

太厉害了大神，结果是对的，但是我直接就看不懂了

leepoison

a184218000 发表于 2024-10-4 08:06
太厉害了大神，结果是对的，但是我直接就看不懂了

看不懂也正常，到最后我自己都有点看不懂了。

佛山小老鼠

1. Option Explicit
   
2. Sub test()
   
3.   Dim arr1, arr2, arr3, arr4(), x, k, y, z
   
4.   Dim arr5(1 To 10000, 1 To 3), a, kk
   
5.   arr1 = Range("A1").CurrentRegion
   
6.   arr2 = Range("D1").CurrentRegion
   
7.   For x = 2 To UBound(arr2)
   
8.     arr3 = Split(arr2(x, 2), "-")
   
9.     k = k + 1
   
10.     ReDim Preserve arr4(1 To k)
    
11.     arr4(k) = arr3(0)
    
12.      k = k + 1
    
13.     ReDim Preserve arr4(1 To k)
    
14.     arr4(k) = arr3(1)
    
15.   Next x
    
16.   For y = 2 To UBound(arr4) - 1
    
17.       If arr4(y + 1) < arr4(y) Then
    
18.           arr4(y + 1) = arr4(y) + 1
    
19.       End If
    
20.   Next y
    
21.   For z = 2 To UBound(arr2)
    
22.      For a = arr4((z - 1) * 2 - 1) To arr4((z - 1) * 2)
    
23.         kk = kk + 1
    
24.         arr5(kk, 1) = arr2(z, 1)
    
25.         arr5(kk, 2) = arr1(a, 1)
    
26.         arr5(kk, 3) = arr1(a, 2)
    
27.      Next a
    
28.   Next z
    
29.   [G2].Resize(kk, 3) = arr5
    
30. End Sub
    

复制代码

忙到飞起

=DROP(HSTACK(REDUCE("",D1:D3,LAMBDA(x,y,VSTACK(x,TEXTSPLIT(REPT(y&"-",TEXTAFTER(OFFSET(y,,1),"-")*1-TEXTBEFORE(OFFSET(y,,1),"-")*1),,"-",TRUE)))),REDUCE("",E1:E3,LAMBDA(x,y,VSTACK(x,OFFSET(A1:B1,TEXTBEFORE(y,"-")*1-1,,TEXTAFTER(y,"-")*1-TEXTBEFORE(y,"-")*1))))),1)



写的老长了，有点不好意思发

飞天篮球猪

供参考...