使用VBA代码将数据每隔4位加入空格

在处理长数据时，很容易出错。如果我们能够在每隔4位数据之间加入一个空格，那么核对数据就会变得非常方便。今天我们来看看如何使用VBA代码实现这一功能。打开一个空白表格并设置1. 首先，我们打开一个准备操

在处理长数据时，很容易出错。如果我们能够在每隔4位数据之间加入一个空格，那么核对数据就会变得非常方便。今天我们来看看如何使用VBA代码实现这一功能。

打开一个空白表格并设置

1. 首先，我们打开一个准备操作的空白表格。

2. 在Excel功能区中选择“开发工具”选项。

3. 在“宏安全性”下选择“启用所有宏”，然后按确定按钮。

编写VBA代码

1. 按下快捷键ALT F11，进入VBA代码书写页面。

2. 双击“Sheet1”，进入该工作表的代码页面。

3. 将以下代码粘贴到代码位置：

```vba

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

'设置A列为文本格式

Range("A1") "@"

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

End If

Application.EnableEvents True

End If

End Sub

```

保存并使用

1. 保存工作薄。

2. 打开工作表，并输入一个19位数字。

3. 自动分隔数据，如图所示。

特别说明：如果你的数据位数不确定，你可以将代码中的`If Len(Target) 19`的等号改为小于号，并将后面的数字改为你数据的最长位数。这样就不仅仅局限在19位数字了。