考虑位数为任意位数,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位连接。
如图所示,每四位连接一个空格:
![](http://imgsrc.baidu.com/forum/w%3D580/sign=6a5725a2d93f8794d3ff4826e21b0ead/61b1c9177f3e6709312f83e536c79f3df8dc55b1.jpg)
B1输入公式
=MyBlank(A1," ",4)