你「車系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
