Excel里面大写字母前加空格

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