s="Cc12BbAa":t=""
For i=1 To len(s)
ch=Mid(s,i,1)
If ch>="a" And ch<="z" or ch>="A" And ch<="Z" Then
If ch>="a" And ch<="z" Then
ch=Chr(Asc(ch)-32)
End If
t=ch+t
Next i
微信扫码预览、分享更方便