如何使用VBA是数据每隔4位就加入空格

1、我们打开一个准备操作的空白表格

3、选择宏安全性，选择启用所有宏，按确定，

4、我们在按快捷键ALT+F11，进入代码书写页面，如图

6、在将以下代码粘贴到如图位置：Option ExplicitPrivate Sub 掳姗浚瑙Worksheet_Change(ByVal Target As Range) '设就女蒿鸳置A列为文本 Range("A1").EntireColumn.NumberFormatLocal = "@" If Target.Column = 1 Then Application.EnableEvents = False If Len(Target) = 19 Then '判断字符长度。这里可以改变为你想要的数字 Target = Mid(Target, 1, 4) & " " & Mid(Target, 5, 4) & " " & Mid(Target, 9, 4) & " " & Mid(Target, 13, 4) & " " & Mid(Target, 17, 4) Else MsgBox "位数不对", 16, "提示" Target = "" Target.Select End If Application.EnableEvents = True End IfEnd Sub

8、特别说明： 如果你的位数不确定你可以将 If Len猾诮沓靥(Target) = 19 的等号改为小于号，后边的数字写到你数据的最长位数就可以了，就不仅仅只局限在19位数字