Excel单元格中录入4位数字自动加一个空格

Excel单元格中录入4位数字自动加一个空格

如果数字超过15位，用下面方法变相达到你的要求：
假设A1文本型数字不超过20位
在B1中输入或复制粘贴下列公式之一
=REPLACE(REPLACE(REPLACE(REPLACE(B5,17,," "),13,," "),9,," "),5,," ")
=REPLACE(REPLACE(REPLACE(REPLACE(B5,5,," "),10,," "),15,," "),20,," ")
下拉填充

设置单元格格式-数字-自定义，输入格式：0000 0000 0000 0000 0000 000
完成后在单元格中输入银行卡号后就会自动变成您想要的样子。追问试验了，15位之后就显示0了追答哦，是的，不小心忘了，这种方法只对不超过15位的数值有效，超过15位，只能按文本处理了，不能通过自定义的方法实现。真的感觉还不大好办。追问文本如何处理啊追答文本没有这样的处理方法。不好办。如果能考虑用公式分步实现的话，或许还可以，但达不到您要求的自动显示的效果。

用VBA实现的话不难，如果是纯函数实现估计够呛追问如何用vba实现？看上图银行是用什么方法设置出来的追答Alt+F11打开VBA编辑器
选择sheet1，复制下面代码到编辑框：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
Dim r, L, i As Integer
Dim S, X As String
r = Target.Row
S = Target
L = Int(Len(S) / 4)
If Len(S) >= 4 Then X = Left(S, 4) + " "
For i = 1 To L
X = X + Mid(S, i * 4 + 1, 4) + " "
Next i
Cells(r, 1) = X
End If
End Sub
然后，Sheet1 的A列输入数据，输入完再点击单元格追问能发个载图吗