请选择 进入手机版 | 继续访问电脑版

Excel里面大写字母前加空格

[复制链接]
查看2873 | 回复0 | 2020-3-5 20:32:08 | 显示全部楼层 |阅读模式
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


回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则