订阅如何数据每隔4位就加入空格
来源：网络收集 点击： 时间：2024-06-25我们打开一个准备操作的空白表格
2/8先在功能区现在开发工具选项
3/8选择宏安全性，选择启用所有宏，按确定，
4/8我们在按快捷键ALT+F11，进入代码书写页面，如图
5/8双击sheets（Sheet1），进入如图页面
6/8在将以下代码粘贴到如图位置：
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/8保存工作薄，我们在打开工作表，只要输入19位数字就会自动分开了，如图
8/8特别说明：
如果你的位数不确定你可以将 If Len(Target) = 19 的等号改为小于号，后边的数字写到你数据的最长位数就可以了，就不仅仅只局限在19位数字
操作系统加空格版权声明：
1、本文系转载，版权归原作者所有，旨在传递信息，不代表看本站的观点和立场。
2、本站仅提供信息发布平台，不承担相关法律责任。
3、若侵犯您的版权或隐私，请联系本站管理员删除。
4、文章链接：http://www.1haoku.cn/art_916435.html
