你的问题核心在于Format()函数和单元格NumberFormat属性的本质区别：

• Format()是把数值转换成带格式的文本字符串，所以Aus/Aust的文本格式能正常显示；
• 而你需要的Bel格式是数字格式（单元格存储为数字，仅显示为10位补零的形式），这时候不能用Format()赋值，而是要直接设置单元格的NumberFormat属性，同时得确保单元格的值是数字类型。

修改后的代码 #

Sub FormatNum()
    Dim ws As Worksheet
    Set ws = Sheets("Data")
    
    With ws
        lastrow = .Cells(.Rows.Count, "Z").End(xlUp).Row
        For x = 2 To lastrow
            Select Case UCase(.Cells(x, "R").Value) ' 统一大小写匹配，避免"Bel"/"BEL"这类差异
                Case "AUS", "AUST"
                    ' 这两类需要文本格式，用Format生成带分隔符的文本
                    .Cells(x, "Z").Value = Format(.Cells(x, "Z").Value, _
                        IIf(UCase(.Cells(x, "R").Value) = "AUS", "000-00.000.000", "000-000000-000"))
                    ' 强制设置为文本格式，防止Excel自动修改显示样式
                    .Cells(x, "Z").NumberFormat = "@"
                Case "BEL"
                    ' 先把单元格值转成数字（如果原本是文本型数字，这一步必须做）
                    .Cells(x, "Z").Value = CDbl(.Cells(x, "Z").Value)
                    ' 设置数字格式为10位，不足补零
                    .Cells(x, "Z").NumberFormat = "0000000000"
            End Select
        Next x
    End With
    MsgBox "Done"
End Sub

关键修改点说明 #

1. 用Select Case优化逻辑：替代多个ElseIf，代码更易读，同时用UCase()统一关键词大小写，避免因为R列的关键词大小写不一致导致匹配失败；
2. Aus/Aust的处理：依然用Format()生成带分隔符的文本，再强制设置单元格为文本格式，确保显示的格式不会被Excel自动调整；
3. Bel的处理：
   • 先用CDbl()把单元格值转换成数字（如果Z列原本是文本类型的数字，不转的话数字格式不会生效）；
   • 直接设置NumberFormat为"0000000000"，这样单元格存储的是数字，仅显示为10位补零的样式，完全符合你的数字格式需求。

可选的错误处理 #

如果Z列存在无法转换成数字的内容（比如非数字文本），CDbl()会报错，可以加上错误捕获逻辑：

Case "BEL"
    On Error Resume Next ' 开启错误捕获
    .Cells(x, "Z").Value = CDbl(.Cells(x, "Z").Value)
    If Err.Number = 0 Then
        .Cells(x, "Z").NumberFormat = "0000000000"
    Else
        ' 标记无法转换的单元格，方便后续排查
        .Cells(x, "Z").Interior.Color = vbYellow
        Err.Clear
    End If
    On Error GoTo 0 ' 关闭错误捕获

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