A列同时存在科1科2科3，提取信息到B列

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.4.27
   
2.     r = Cells(Rows.Count, 1).End(3).Row
   
3.     arr = [a1].Resize(r, 2)
   
4.     b = Array("科1", "科2", "科3")
   
5.     For i = 2 To UBound(arr)
   
6.         m = 0
   
7.         For x = 0 To 2
   
8.             If InStr(arr(i, 1), b(x)) Then
   
9.                 m = m + 1
   
10.             End If
    
11.             If m = 3 Then
    
12.                 st = Split(arr(i, 1), "-")
    
13.                 arr(i, 2) = st(1) & "：" & st(UBound(st))
    
14.             End If
    
15.         Next
    
16.     Next
    
17.     [b2:b1000] = ""
    
18.     [a1].Resize(r, 2) = arr
    
19.     MsgBox "OK！"
    
20. End Sub
    

复制代码

朝露孤烟

公式更简单，WPS2024版。=TEXTJOIN(",",,(IFERROR(CHOOSECOLS(TEXTSPLIT(A2,"-",,1),2,6),"")))

grf1973

用正则来凑个热闹。JS版。