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

时间：2024-10-14 13:21:23

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

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

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

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

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

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

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

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