怎樣用26個字母做遞增序號？

fangkinght

怎樣用26個英文字母做遞增序號？

liwen

Function ss(str)
m = Len(str)
For i = m To 1 Step -1
If Mid(str, i, 1) = "Z" Then
str = Left(str, i - 1) & "A" & Mid(str, i + 1)
Else
str = Left(str, i - 1) & Chr(Asc(Mid(str, i, 1)) + 1) & Mid(str, i + 1)
Exit For
End If
Next
ss = str
End Function