标题: 怎样用26个字母做递增序号？ [打印本页] 作者: fangkinght 时间: 2008-5-22 15:01 标题: 怎样用26个字母做递增序号？ 怎样用26个英文字母做递增序号？作者: liwen 时间: 2008-5-22 15:41
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