如何按需求提取字段

uyu1

主要是做考勤的，数据源有点乱，想按需求提取字段相应字段，但这个字段字数不一，位置不一，如何提取呢？

uyu1

有些组后面还会带A组，B组，但我只需要到大组就可以了

solextrade

区域数组，选中B2:C2
=TEXT(IF(LEN($A2)>10,{-1,0},{1,-1})%,SUBSTITUTE($A2,"-",";"))

boyuanoffice

1. =TAKE(TEXTSPLIT(TEXTBEFORE(A2,{"A","B"}&"组",,,1),"-",,1),,-2)

复制代码

swl4561255

1. Sub test()
   
2. ar = Range("A1").End(4).Row
   
3. arr = Range("A2:A" & ar)
   
4. Dim brr()
   
5. ReDim brr(0 To ar - 2, 0 To 1)
   
6. For i = 1 To ar - 1
   
7.   br = Split(arr(i, 1), "-")
   
8.   brr(i - 1, 0) = br(UBound(br) - 1)
   
9.   brr(i - 1, 1) = br(UBound(br))
   
10. Next
    
11. [B2].Resize(ar - 1, 2) = brr
    
12. [B1].Resize(ar, 2).Font.ColorIndex = 3
    
13. End Sub
    

复制代码

uyu1

solextrade 发表于 2024-3-22 12:12
区域数组，选中B2:C2
=TEXT(IF(LEN($A2)>10,{-1,0},{1,-1})%,SUBSTITUTE($A2,"-",";"))

部门带英文识别会出错 ，这个怎么处理呀

uyu1

swl4561255 发表于 2024-3-22 12:26

谢谢，但是电脑不好带宏，还是谢谢了

hcm19522

B2:C9=TRIM(LEFT(RIGHT(SUBSTITUTE("-"&$A2,"-",REPT(" ",99)),(3-COLUMN(A1))*99),99))

hxj119

=TAKE(TEXTSPLIT(A2,"-"),,-2)

我的城市你来过

=INDEX(TEXTSPLIT(A2,"-"),,COUNTA(TEXTSPLIT(A2,"-"))-{1,0})