动态数字为Dim dn as Long第N位为CInt(Mid(CStr(dn),N,1))不知道是不是你要的那个
Dim intDn As Integer Dim strDes As String strDes = "13256985698" intDn = CInt(InputBox("Please Input a Number")) 'Change the bit of start strDes = Mid(strdex, intDn) 'dn to end
Dim intDn As Integer Dim strDes As String strDes = "13256985698" intDn = CInt(InputBox("Please Input a Number")) 'Change the bit of start strDes = Mid(strdex, intDn) 'dn to end
Dim intDn As Integer
Dim strDes As String
strDes = "13256985698"
intDn = CInt(InputBox("Please Input a Number")) 'Change the bit of start
strDes = Mid(strdex, intDn) 'dn to end
Dim strDes As String
strDes = "13256985698"
intDn = CInt(InputBox("Please Input a Number")) 'Change the bit of start
strDes = Mid(strdex, intDn) 'dn to end