在處理長數(shù)據(jù)時，很容易出錯。如果我們能夠在每隔4位數(shù)據(jù)之間加入一個空格，那么核對數(shù)據(jù)就會變得非常方便。今天我們來看看如何使用VBA代碼實現(xiàn)這一功能。打開一個空白表格并設(shè)置1. 首先，我們打開一個準備操

在處理長數(shù)據(jù)時，很容易出錯。如果我們能夠在每隔4位數(shù)據(jù)之間加入一個空格，那么核對數(shù)據(jù)就會變得非常方便。今天我們來看看如何使用VBA代碼實現(xiàn)這一功能。

打開一個空白表格并設(shè)置

1. 首先，我們打開一個準備操作的空白表格。

2. 在Excel功能區(qū)中選擇“開發(fā)工具”選項。

3. 在“宏安全性”下選擇“啟用所有宏”，然后按確定按鈕。

編寫VBA代碼

1. 按下快捷鍵ALT F11，進入VBA代碼書寫頁面。

2. 雙擊“Sheet1”，進入該工作表的代碼頁面。

3. 將以下代碼粘貼到代碼位置：

```vba

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

'設(shè)置A列為文本格式

Range("A1") "@"

If 1 Then

Application.EnableEvents False

'判斷字符長度。這里可以改變?yōu)槟阆胍臄?shù)字

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 "位數(shù)不對", 16, "提示"

Target ""

End If

Application.EnableEvents True

End If

End Sub

```

保存并使用

1. 保存工作薄。

2. 打開工作表，并輸入一個19位數(shù)字。

3. 自動分隔數(shù)據(jù)，如圖所示。

特別說明：如果你的數(shù)據(jù)位數(shù)不確定，你可以將代碼中的`If Len(Target) 19`的等號改為小于號，并將后面的數(shù)字改為你數(shù)據(jù)的最長位數(shù)。這樣就不僅僅局限在19位數(shù)字了。