VBA Excel格式化问题：Harmonized Code自动添加句号失效求助

问题原因 #

VBA的Format函数更适配数值类型的格式化逻辑，当传入字符串类型的10位数字时，####.##.####格式符会把整个字符串填充到前四位的占位符中，剩余的格式位因为没有对应内容，会保留标点但无数字，最终出现末尾的两个句号。

解决方案 #

通过字符串截取拼接的方式实现精准格式化，步骤如下：

1. 清理输入（推荐）：先去除编码中的非数字字符，确保输入为纯10位数字

   ' 移除所有非数字字符（包括已有的句号、空格等）
   tv = Replace(Replace(Replace(tv, ".", ""), "-", ""), " ", "")
   ' 校验编码长度，不符合则提示（可按需调整逻辑）
   If Len(tv) <> 10 Then
       MsgBox "请输入有效的10位编码"
       Exit Sub
   End If
   

2. 拼接格式化编码：直接截取对应位置的字符并插入句号

   tv = Left(tv, 4) & "." & Mid(tv, 5, 2) & "." & Mid(tv, 7, 4)
   

完整示例代码 #

Sub FormatHarmonizedCode()
    Dim tv As String
    tv = "1234567890" ' 示例输入
    
    ' 清理非数字字符
    tv = Replace(Replace(Replace(tv, ".", ""), "-", ""), " ", "")
    
    ' 格式化并输出结果
    If Len(tv) = 10 Then
        tv = Left(tv, 4) & "." & Mid(tv, 5, 2) & "." & Mid(tv, 7, 4)
        MsgBox tv ' 输出结果：1234.56.7890
    Else
        MsgBox "编码长度不符合要求"
    End If
End Sub

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