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 & " - "

我希望在volgnummer中最高的数字为+1。

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