Excel中搜索編號+1

Question

我輸入的是：T15RHE020 - Bergweg，我想獲得：T15RHE021 - Bergweg

這是我現在有。

Dim str1 As String 
Dim Cet 

str1 = Combobox1.text 
Cet = Split(str1, "-") 
Cet(0) = Left(Cet(0), 6) & Format(Val(Right(Cet(0), 3)) + 1, "000") 
str1 = Cet(0) & " - " & Cet(1) 

volgnummer = Left(ComboBox1, 1) & Right(ComboBox2, 2) & ComboBox3.Text & str1 & " - " 

我想最高的數字是+1在volgnummer。

Answer 1

Sub AlpNum() 
Dim str1 as String 
Dim Cet 

str1 = "T15RHE020 - Bergweg" 
Cet = Split(str1," - ") 

'Assuming a constant field width, 

Cet(0) = Left(Cet(0),6) & Format(Val(Right(Cet(0),3))+1,"000") 

str1=Cet(0) & " - " & Cet(1) 

Debug.Print str1 
End Sub 

參考：www.Ozgrid.com