怎样用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