对应项目支出的正则

yshcy

limonet 发表于 2024-4-13 19:33
只能XY循环。

感谢帮助。这里日期没有提取，如能改进下就更好了。

michaelaa

limonet 发表于 2024-4-13 19:49
新公式嵌套右拉下拉：=IFNA(VLOOKUP("*"&B$1&"*",LET(fx,DROP(TEXTSPLIT(TRIM(数据源!$B2),,{";","；"}),-1 ...

limonet老师公式也玩得这么厉害,赞

swl4561255

1. Sub limonet()
   
2. Arr = Sheets("数据源").Range("A1").CurrentRegion
   
3. myr = Range("A1:E1")
   
4. Dim crr(1 To 100, 1 To 5)
   
5. For i = 2 To UBound(Arr)
   
6.     crr(i - 1, 1) = Arr(i, 1)
   
7.     br = Split(Arr(i, 2), ";")
   
8.     For j = 0 To UBound(br)
   
9.         For k = 2 To UBound(myr, 2)
   
10.             If InStr(br(j), myr(1, k)) Then
    
11.                 crr(i - 1, k) = Split(br(j), ":")(1)
    
12.             End If
    
13.         Next
    
14.     Next
    
15. Next
    
16. [A2].Resize(UBound(Arr), 5) = crr
    
17. End Sub

复制代码

sunya_0529

做成自定义函数用起来方便一些，WPS里的JSA练习一下——