可变前置零数字格式化：基于列最大值自动设置补零格式的方法

无需修改原A列数值，新增辅助列即可实现效果，数据更新时自动刷新格式：

• 点击A列旁的空白列（如B列）第一个数据行，输入公式：=TEXT(A1,REPT("0",LEN(MAX(A:A))))
• 下拉公式到和A列数据行数对齐的位置即可
• 原理说明：LEN(MAX(A:A))会自动计算A列当前最大值的位数，REPT生成对应长度的格式串，TEXT函数按照该格式为数值补前导零，A列数据变动后公式会自动重算调整位数。

注意：该方案得到的是文本格式的内容，如果需要保留数值属性用于后续计算，建议使用VBA方案。

该方案直接修改A列的单元格显示格式，不改变原数值的计算属性，数据变动时自动调整格式：

1. 按下Alt+F11打开VBA编辑器，在左侧工程列表双击需要生效的工作表名称
2. 在右侧弹出的代码编辑窗口粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅监控A列的改动，其他列操作不触发
    If Not Intersect(Target, Me.Range("A:A")) Is Nothing Then
        On Error Resume Next
        Dim maxVal As Long, digitCnt As Integer
        ' 读取A列当前最大值，计算对应位数
        maxVal = Application.WorksheetFunction.Max(Me.Range("A:A"))
        digitCnt = Len(CStr(maxVal))
        ' 批量设置A列数字格式为对应长度的前导零格式
        Me.Range("A:A").NumberFormat = String(digitCnt, "0")
        On Error GoTo 0
    End If
End Sub

3. 关闭VBA编辑器回到Excel界面即可生效

• 使用注意：保存文件时请选择Excel 启用宏的工作簿(*.xlsm)格式，否则代码不会被保存，下次打开无法生效。
• 拓展：如果需要工作簿内所有工作表都生效，将代码粘贴到ThisWorkbook模块，将事件名修改为Workbook_SheetChange即可。

内容的提问来源于stack exchange，提问作者chicagobeast12