excel中列字母和数字互换

 把列的字母换成数字，其中letter为列的字母

dim C_namechar as string="A....Z"

dim len as integer=letter.Length

dim bit as integer=1

dim getindexnum as integer=0

for i as integer=len-1 to 0

dim c as char=letter(i)

dim val as string=C_namechar.indexof(Char.toupper(c))+1

getindexnum+=bit*val

bit*=26

next

同理：把列的数字换成字母，其中i为列的数字

dim left as integer=(i-1)/26

dim right as integer=imod 26

dim nameleft as string=String.Empty

dim nameright as String=string.Empty

if(left>0)then

nameleft=Getname(left)

else

nameleft=string.empty

end if

if(right=0)then

right=26

end if

nameright=convert.tostring(C_namechar(right-1))

name=nameleft+namerigh