你「车系2」的要求基本是无规律的，所以用函数不一定能完美实现，可尝试用VBA正则表达式替换掉不需要的文字，获取目标文字，你可以根据需求自定义规则，让程序更完善
Sub xReplace()
Dim n%, i%, k%, arr(), Exp As Object, rng As Range
Set Exp = CreateObject("vbscript.regexp")
'---------------------------------------
n = Range("B" & Rows.Count).End(xlUp).Row
For i = 2 To n
Set rng = Cells(i, 3)
.......
Next i
'---------------------------------------再导出到txt
Set Exp = Nothing '//清空变量，释放内存
End Sub
