Option Explicit Sub test() Dim i, arr, t, mark arr = Range("a2:e" & [a65536].End(xlUp).Row): mark = "产品留言" For i = 1 To UBound(arr, 1) If InStr(arr(i, UBound(arr, 2)), mark) > 0 Then arr(i, UBound(arr, 2)) = Trim(Split(arr(i, UBound(arr, 2)), mark)(0)) Next [a2].Resize(UBound(arr, 1), UBound(arr, 2)) = arr End Sub