VBA代码优化：超长数字截断右侧12位并添加指定前缀

优化后的代码 #

Dim compteStr As String
compteStr = CStr(Compte) ' 转换为字符串避免长数字溢出或精度丢失

If Len(compteStr) <= 12 Then
    ' 12位及以下：补零至12位后拼接原前缀
    c = "00799999" & Format(Compte, String$(12, "0"))
Else
    ' 超过12位：截取右侧12位后拼接指定前缀
    c = "0079999" & Right(compteStr, 12)
End If

逻辑说明 #

1. 字符串转换：先把输入的Compte转为字符串，避免长数字超出VBA数值类型范围导致的溢出或精度丢失问题。
2. 分支处理：
   • 当输入长度≤12位时，保留原代码的补零逻辑，确保数字格式化为12位带前导零的字符串，再拼接原前缀00799999。
   • 当输入长度>12位时，用Right函数直接截取右侧12位字符，再拼接要求的前缀0079999。

示例验证 #

• 输入12位数字111111111193，输出结果：00799999111111111193，符合原逻辑预期。
• 输入13位数字9000030003470，截取右侧12位得到000030003470，拼接前缀后输出：0079999000030003470，与要求一致。

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