Public Sub abc()
For k = 1 To 1000 '根据表格长度
m = Cells(k, 1)
If Cells(k, 1) = "" Then End
x = Len(Cells(k, 1)) '得到字符长度
u = ""
For i = 1 To x
n = Mid(m, i, 1) '截取每个字符
For g = 48 To 122
If n = Chr$(g) Then '判断每个字是否是数字或英文
n = n: GoTo 10 '是数字不加空格
End If
Next g
If i = 1 Then '判断是否中文首位
n = n & " " '是中文首位不加空格
Else
n = " " & n & " " '是中文中间加空格
End If
10 u = u & n '把字符累加
Next i
Cells(k, 1) = u
Next k
End Sub
'根据你的要求已修改,你能采用我的回答,我很高兴乐意帮忙，有什么问题可以再提。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024