EXCEL中用VBA提取特定条件的字符串?答:Option ExplicitSub 宏1()Dim arr, i&, s$, t, j&arr = ActiveSheet.UsedRangeFor i = 2 To UBound(arr)s = ""If arr(i, 1) <> "" ThenFor 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)) & ...