1樓：匿名使用者
點「工具」-----選項----常規----勾選「r1c1引用式樣-----確定。列標a、b、c.....就變成1、2、3...了。
沒看清題，答錯了。不必在意。
2樓：匿名使用者
換個思路唄！用case 1 to 26，case 27 to 676，順推，這樣就能往後寫四位，五位甚至更高位數了吧！
如何在vba中把數字列轉成字母
3樓：真真真白丁
以第20列為例，下面的**可以得到列字母：
msgbox left(columns(20).address(columnabsolute:=false), instr(columns(20).
address(columnabsolute:=false), ":") - 1)
4樓：魚木混豬喲
alt+f11，插入模組，插入如下**
private function columnnum(byval a) as long
dim r
r = 0
if vartype(a) = vbstring and len(a) > 0 then
a = ucase(a)
r = asc(left(a, 1)) - asc("a") + 1
if len(a) >= 2 then
r = r * 26 + asc(mid(a, 2, 1)) - asc("a") + 1
if len(a) >= 3 then
r = r * 26 + asc(mid(a, 3, 1)) - asc("a") + 1
end if
end if
end if
columnnum = r
end function
然後返回excel，用函式=columnnum(需要轉換的單元格）
即可實現數字列換成字母
5樓：匿名使用者
看你想要的是哪一種效果
chr(數字)
cstr(數字)
excel vba 數字列標轉換成字母列標
6樓：落葉l無情
=substitute(substitute(address(1,a1),"$",""),"1","")
a1為數字所在單元格，上面是大寫，小寫的話再使用lower函式轉換一下
=lower(substitute(substitute(address(1,a1),"$",""),"1",""))
7樓：匿名使用者
提供非函式的方法如下：
在excel選項中「公式」中取消勾選「r1c1引用樣式」。
8樓：勝雄
6666666666666666666
如何把excel列號數字變成字母
9樓：匿名使用者
列好預設是字母的，你要是變成數字的就是你採用了r1c1引用樣式，在選項中取消勾選就可以，2003版本在工具-選項，2007以上版本在office選單中（左上角）
10樓：匿名使用者
如圖,選單欄 點 工具-選項-常規:設定項下 把"r1c1引用樣式"前面的勾去掉 確定即可
11樓：匿名使用者
因為區域名稱定義的可能與列標有相同的。要麼不用字母的列標，要麼改自定義名稱。
12樓：史其饒學林
親，你可以參考：
excel中數字與字母的相互轉換
excel 巨集 我用vba 獲得某列的列號（字母）列比較多。如aa。ab都有，這樣我如何獲得列號呢， 100
13樓：匿名使用者
通過.column獲得的列號是阿拉伯數字，從1開始表示a列，想要轉換過去可以使用
chr(cells(1,1).column+64)通過.address獲得的是絕對引用的地址比如 columns(1).address就是 $a:$a多個列引用建議使用
range("a:b,e:g,aa:aa")這種，連續的用分號，不連續的用逗號
14樓：基想恆境
sub aa()
dim columnindex%
columnindex=rows(標題行).find("欄位名").column
end sub
15樓：桐珹
sub a()
msgbox activecell().rowmsgbox activecell().columnend sub
16樓：匿名使用者
用address函式
excel中vba中通過input中的字母列標來得到其數字列表,用msgbox顯示
excel vba中提取左列單元格只保留數字，將字母儲存到右列，**如何編寫？
17樓：
按alt+f11，插入-模組，複製下列語句functionsplitnumeng(str as string, sty as byte)
dim stra as string
dim strb as string
dim strc as string
dim i as integer
dim sigs as string
for i = 1 to len(str)sigs = mid(str, i, 1)if sigs like "[a-za-z]" thenstra = stra & sigs
elseif sigs like "#" thenstrb = strb & sigs
else
strc = strc & sigs
end if
next i
select case sty
case 1
splitnumeng = stra
case 2
splitnumeng = strb
case else
splitnumeng = strc
end select
endfunction
比如你的資料在a1
b1輸入 =splitnumeng(a1,1)c1 =splitnumeng(a1,2)
求vba中數字和字母的互相轉換
18樓：明月無心戀落花
字母支援a到zz
你應該會十進位制和二進位制的轉化吧，你的問題本質是把10進位制的數字轉化為26進位制的。從a到z分別表示1到26。 我們只需兩個引數，分別標識26進位制數的兩位數。
然後把i和j通過chr(64+i)或chr(64+i)轉換就行了。需要注意的是，當j=0時，j=26 i=i-1
19樓：匿名使用者
'***********************************=
'名稱: csn
'功能: 把列 字母和數字相互轉化(最大支援702,zz)
'***********************************=
private function csn(col)
dim i, j, si, sj
if isnumeric(col) then
j = col mod 26: i = (col - j) / 26: if j = 0 then j = 26
if i > 0 then csn = chr(64 + i) & chr(64 + j) else csn = chr(64 + j)
else
if len(col) = 1 then sj = col else si = mid(col, 1, 1): sj = mid(col, 2, 1)
if si <> "" then i = asc(si) - 64
if sj <> "" then j = asc(sj) - 64
csn = 26 * i + j
end if
end function
20樓：匿名使用者
沒太明白問題意思，鍵盤上的字母有對應的ascii碼，和自己對應的數字建立一下關係就好了
21樓：匿名使用者
是a到z 相應的轉換為1到26,或者1到26相應的轉換為a到z? (不區分大小寫字母)
給你個自定義函式,用法同excel 內建函式的語法.
例如:a1單元格內容是c 在單元格b1中輸入=csn(a1) 得到的結果是3
a1單元格內容是5,在單元格b1中輸入=csn(a1) 得到的結果是e
a1單元格內容是5,在單元格b1中輸入=csn(a1,1)得到的結果是e
注意:自定義函式的**必須放在模組裡
**如下:
function csn(char as variant, optional n as integer)
'n為可選引數,等於1時轉換為大寫字母,n等於其他任意值或者省略該引數轉換為小寫字母
if isnumeric(char) then
char = iif(n = 1, char + 64, char + 96)
select case char
case 65 to 90, 97 to 122
csn = chr(char)
case else
csn = "數字超範圍"
end select
else
if len(char) = 1 then
if char like "[a-z,a-z]" then
a = asc(char)
csn = iif(a < 91, a - 64, a - 96)
else
csn = "不是字母"
end if
else
csn = "字元太多"
end if
end if
end function
excel vba多列資料求和，要求用VBA字典
sub 多列相同項累計 dim dic,istr as string set dic createobject scripting.dictionary with activesheet for i 1 to range a65536 end xlup row istr cells i,1 cell...
Excel vba如何設定用指定數字替代日期
excel vba設定用指定數字替代日期，其實就是提取後判斷處理再組合的一個過程。vba 如下 sub zdate endrow range a65536 end xlup row for i 1 to endrow str1 range a i y mid str1,4,1 m month str...
大象的作文用列數字方法，大象的作文用列數字方法100字
不少的人都看過大象，都說象是很大的 動物.其實還有比象更大的動物，那就說鯨.目前已知最大的鯨約16萬公斤重，最小的也只有2000公斤.我國發現過一頭近4萬公斤重的鯨，約17米長，一條舌頭就有十幾頭大肥豬那麼重.它要是張開嘴，人站在它嘴裡，舉起手來還摸不到它的上顎，四個人圍著桌子坐在它嘴裡看書還顯得寬...