Sub yy()
'执行前先选择需要转换的区域
Dim r As Range, L%, n%, s$, s1$, s2$
For Each r In Selection
L = Len(r): s = r: n = 0
If L > 1 Then
For i = L To 2 Step -1
If Asc(Mid(s, i, 1)) > 64 And Asc(Mid(s, i, 1)) < 91 And Mid(s, i - 1, 1) <> " " Then
n = n + 1
s1 = Left(s, i - 1): s2 = Right(s, L - i + n)
s = s1 & " " & s2
End If
Next
r = s
End If
Next
End Sub
|