查找关键字返回对应内容

xtmyd5156

这种用法不大好，建议分列，重新设计表格，正如楼上大佬所说。

快乐王子238

=MAP(TRIMRANGE(A2:A9999,2),LAMBDA(x,XLOOKUP(TRUE,REGEXP(x,F2:F11,1),G2:G11)))

wyslw2004

=FILTER($G$2:$G$11,ISNUMBER(FIND($F$2:$F$11,A2)))

wyslw2004

caiyangfoxyue 发表于 2025-4-1 11:50
这个一定要锁定F2到F11吗 还有什么办法可以直接选一整列吗~？

一键生成：
=DROP(REDUCE("",A2:A27,LAMBDA(x,y,VSTACK(x,FILTER(G2:G11,ISNUMBER(FIND(F2:F11,y)))))),1)

hcm19522

=LOOKUP(1,0/(FIND(F$2:F$999,"A"&A2)>1),G$2:G$999)

快乐王子238

=MAP(substitutes(a2:a27,j2:j24,""),LAMBDA(x,XLOOKUP(x,G2:G11,h2:h11)))
辅助列h列，如上图标所示，关键字替换为空，剩下就是需要的关键字了，查找关键字

hxj119

1. =MAP(A2:A27,LAMBDA(x,LOOKUP(1,0/FIND(F2:F11,x),G2:G11)))

复制代码

wbjjzhu

WPS

1. =VLOOKUP(TOCOL(REGEXP(A2,$F$2:$F$11),2),$F$1:$G$11,2,FALSE)

复制代码

ykcbf1100

多列多关键字排序，VBA

ykcbf1100

1. Sub ykcbf()   '//2025.4.1
   
2.     With ActiveSheet
   
3.         Set Rng = .Range("a1").CurrentRegion.Offset(1)
   
4.         px1 = Array("一", "二", "三", "四", "五")
   
5.         px2 = Array("上午", "下午")
   
6.         px3 = Array("第1节", "第2节", "第3节")
   
7.         With .Sort
   
8.             .SortFields.Clear
   
9.             .SortFields.Add Key:=Rng.Columns(1), Order:=1
   
10.             .SortFields.Add Key:=Rng.Columns(2), Order:=1, CustomOrder:=Join(px1, ",")
    
11.             .SortFields.Add Key:=Rng.Columns(3), Order:=1, CustomOrder:=Join(px2, ",")
    
12.             .SortFields.Add Key:=Rng.Columns(4), Order:=1, CustomOrder:=Join(px3, ",")
    
13.             .SetRange Rng
    
14.             .Header = 2
    
15.             .Apply
    
16.         End With
    
17.     End With
    
18.     MsgBox "OK！"
    
19. End Sub
    
20. 
    

复制代码