可以自定义一个函数来实现，按ALT+F11，添加模块，粘贴下面的代码：

Option Explicit

Option Explicit

Function 空格分开后倒序(s)

Dim arr, i&, r$

arr = Split(s, " ")

For i = UBound(arr) To LBound(arr) Step -1

r = r & arr(i) & " "

Next i

空格分开后倒序 = r

End Function

粘贴好之后如下图：

现在可以在工作表里面写函数实现功能，示例如下：