有没有大神知道怎么办

111

波斯文本来就这顺序的你干嘛要改人家东西。

Option Explicit
Sub abc()
　Dim a, i, j, t, s
　a = Range("b1:b" & [b1].End(xlDown).Row).Value
　For i = 1 To UBound(a)
　　t = Split(a(i, 1), Space(1))
　　For j = 0 To UBound(t) / 2
　　　s = t(j): t(j) = t(UBound(t) - j): t(UBound(t) - j) = s
　　Next
　　a(i, 1) = Join(t, Space(1))
　Next
　[b1].Resize(UBound(a)) = a
End Sub