如图，想提取改员工进入YY工厂后的岗位变动路径。用公式函数整不出来，求VBA大神帮忙
程序运行示例：
程序代码：
代码文本（由于特殊符号可能无法显示，请以上图为准）：
Option Explicit
Sub 宏1()
Dim arr, i&, s$, t, j&
arr = ActiveSheet.UsedRange
For i = 2 To UBound(arr)
s = ""
If arr(i, 1) <> "" Then
For Each t In Split(arr(i, 1), Chr(10))
j = InStr(t, "YY工厂")
If j > 0 Then s = s & Mid(t, j + 5, Len(t)) & "->"
Next t
End If
If s <> "" Then Cells(i, 2) = Left(s, Len(s) - 2)
Next i
End Sub
温馨提示：答案为网友推荐，仅供参考
第1个回答 2022-04-28
=lujing(A1)
Function lujing(a As String)
b = Split(a, Chr(10))
For i = 0 To UBound(b)
If InStr(b(i), "YY工厂") Then
c = Split(b(i), "YY工厂")
lujing = lujing & "-" & c(1)
End If
Next
lujing = Mid(lujing, 2)
End Function
