主题：编号的自动输入

参考

Dim s1 As String = "012019030412345"
Dim s2 As String = "12351"
Dim n As Integer = right(s1, s2.length)
Dim s As String = left(s1, s1.length-s2.length)
For i As Integer = n To s2
    msgbox(s & Format(i, "".PadLeft( s2.length,"0")))
Next