a=10000Do b = right(a, 4) TracePrint b If b = 9999 Then Exit Do End If a=a+1Loop直接复制代码到脚本里运行调试从 0000开始就这样 要从0001开始 就a=10001
