VBA For 循环中递增字符串

Question

我试图分解文本框字符串（序列号）并从初始文本框值开始，然后在 For 循环中将其增加 1。我不知道如何从文本框中的第一个字符串开始，然后将其增加 1，直到循环结束。

For i = j To countForms
        
        If incSerialCheck = True Then 'Checkbox on userform to increment entered serial number
                serialNum = serialNumber.Value
                lastThree = Right(serialNum, 3)
                LastThreeInt = CInt(lastThree)
                LastThreePlusOne = LastThreeInt + 1
                LastThreePlusOneStr = CStr(LastThreePlusOne)
                NewSerialNumStr = Left(serialNum, Len(serialNum) - 3) & LastThreePlusOneStr
        Else
            NewSerialNumStr = serialNumber.Value
        End If
Next i 

Answer 1

您的代码即将完成。

'            serialNum = serialNumber.Value
            serialNum = "9875643"
            lastThree = Right(serialNum, 3)
            LastThreeInt = CInt(lastThree)
            LastThreePlusOne = LastThreeInt + 1
            LastThreePlusOneStr = Right(CStr(LastThreePlusOne), 3)
            NewSerialNumStr = Left(serialNum, Len(serialNum) - 3) & LastThreePlusOneStr