如何数据每隔4位就加入空格

来源：互联网 2023-02-20 16:50:50 314

对已经常数据长数据的朋友肯定都知道数据太长很容易就看错，要是分开4位数据加入一个空格这样核对不是就很方便了，今天看下用VBA代码是怎么做的

工具/原料

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

如何数据每隔4位就加入空格

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

如何数据每隔4位就加入空格

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

如何数据每隔4位就加入空格

3此文章未经许可获取自百度经验

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

如何数据每隔4位就加入空格

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

如何数据每隔4位就加入空格

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

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

如何数据每隔4位就加入空格

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

如何数据每隔4位就加入空格

特别说明：

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

以上方法由办公区教程网编辑摘抄自百度经验可供大家参考！