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

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

2、先在功能区现在开发工具选项

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

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

5、双击sheets（Sheet1），进入如图页面

6、在将以下代码粘贴到如图位置：

Option Explicit

Private 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 If

End Sub

7、保存工作薄，我们在打开工作表，只要输入19位数字就会自动分开了，如图

8、特别说明：

  如果你的位数不确定你可以将  If Len(Target) = 19 的等号改为小于号，后边的数字写到你数据的最长位数就可以了，就不仅仅只局限在19位数字