EXCEL列数据前面补零
- 打开 Excel 文件
按 Alt + F11 快捷键，或通过「开发工具」→「Visual Basic」打开编辑器
如果没有「开发工具」选项卡：
点击「文件」→「选项」
选择「自定义功能区」，在右侧勾选「开发工具」，点击确定 - 插入 VBA 代码
在 VBA 编辑器中，右键点击左侧的 Excel 文件名称
选择「插入」→「模块」，会生成一个空白的代码窗口
在代码窗口中粘贴 VBA 代码（例如之前的补零宏）
Sub AddLeadingZeros()Dim targetLength As IntegerDim cell As Range' 获取目标长度targetLength = InputBox("请输入补零后的总长度:", "前导零设置", 6)' 验证输入If targetLength <= 0 ThenMsgBox "请输入有效的长度", vbExclamationExit SubEnd If' 检查选中区域If Selection Is Nothing ThenMsgBox "请先选中需要处理的单元格", vbExclamationExit SubEnd If' 处理每个单元格For Each cell In SelectionIf cell.Value <> "" Then' 转换为文本并补零cell.NumberFormat = "@" ' 设置为文本格式cell.Value = String(targetLength - Len(cell.Value), "0") & cell.ValueEnd IfNext cellMsgBox "前导零添加完成！", vbInformationEnd Sub
三、运行 VBA 宏
方法 1：在 VBA 编辑器中
将光标放在代码内部
按 F5 键，或点击工具栏的「运行子程序」按钮（绿色三角形）
方法 2：在 Excel 界面中
按 Alt + F8 打开「宏」对话框
选择需要运行的宏（如AddLeadingZeros）
点击「执行」
