考虑位数为任意位数,n位连上空格或其他符号,自定义函数如下:
Function MyBlank(sr As String, sign As String, num As Integer) As String
Dim i As Integer, length As Integer, arr
length = (Len(sr) - 1) \ num + 1
ReDim arr(1 To length)
For i = 1 To Len(sr) Step num
arr((i - 1) / num + 1) = Mid(sr, i, num)
Next
MyBlank = Join(arr, sign)
End Function
这个函数有三个参数,第一个参数是需要连接的字符,第二个参数连接符号,第三个参数隔n位连接。
如图所示,每四位连接一个空格:

B1输入公式
=MyBlank(A1," ",4)