Note: The other languages of the website are Google-translated. Back to English

如何在Excel中將列字母轉換為數字,反之亦然?

本文,我將討論如何將列字母轉換為列號或將列數字轉換為字母。 例如,將列字母AA轉換為數字27,或將列數字100轉換為字母CV。 用以下方法獲得解決方案。

使用公式將列字母轉換為數字,反之亦然

使用用戶定義的功能將列字母轉換為數字,反之亦然


箭頭藍色右氣泡 使用公式將列字母轉換為數字,反之亦然

要將列字母或標籤轉換為數字,反之亦然,以下公式可能會對您有所幫助,請執行以下操作:

將列字母轉換為列號:

請輸入以下公式: = COLUMN(INDIRECT(“ AB1”)) 放入要查找轉換結果的空白單元格,然後按 Enter 獲取列號的鍵:

doc將列標籤轉換為數字1

備註: 在上式中 AB 是您要獲取列號所基於的列字母,可以根據需要進行更改。

將列號轉換為列字母:

請輸入以下公式: = SUBSTITUTE(ADDRESS(1,200,4),1,“”) 放入空白單元格以獲取結果,然後按 Enter 獲取列字母,如下所示:

doc將列標籤轉換為數字2

備註: 在上面的公式中,紅色數字 200 是要轉換為列字母的列號,可以根據需要進行更改。


箭頭藍色右氣泡 使用用戶定義的功能將列字母轉換為數字,反之亦然

除了公式之外,在這裡我還可以介紹 用戶自定義函數 處理這個任務。

將列字母轉換為列號:

1。 按住 ALT + F11 鍵,然後打開 Microsoft Visual Basic for Applications 窗口。

2。 點擊 插入 > 模塊,然後將以下代碼粘貼到 模塊 窗口。

VBA代碼:將列字母轉換為列號:

Public Function ToColNum(ColN)
    ToColNum = Range(ColN & 1).Column
End Function

3。 然後保存並關閉此代碼,返回到工作表,然後輸入以下公式: = Tocolnum(“ VV”) (VV 是要轉換數字的列字母。 )放入空白單元格,然後按 Enter 鍵以獲取列號,請參見屏幕截圖:

doc將列標籤轉換為數字3

將列號轉換為列字母:

1。 按住 ALT + F11 鍵,然後打開 Microsoft Visual Basic for Applications 窗口。

2。 點擊 插入 > 模塊,然後將以下代碼粘貼到 模塊 窗口。

VBA代碼:將列號轉換為列字母:

Public Function ToColletter(Collet)
    ToColletter = Split(Cells(1, Collet).Address, "$")(1)
End Function

3。 然後保存並關閉此代碼,返回到工作表,然後輸入以下公式: = toColletter(50) (50 是要轉換為字母的列號。 )放入空白單元格,然後按 Enter 鍵以獲取列號,請參見屏幕截圖:

doc將列標籤轉換為數字4


最佳辦公效率工具

Kutools for Excel 解決了你的大部分問題,並將你的生產力提高了 80%

  • 重用: 快速插入 複雜的公式,圖表 以及您以前使用過的任何東西; 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
  • 超級公式欄 (輕鬆編輯多行文本和公式); 閱讀版式 (輕鬆讀取和編輯大量單元格); 粘貼到過濾範圍...
  • 合併單元格/行/列 不會丟失數據; 拆分單元格內容; 合併重複的行/列...防止細胞重複; 比較範圍...
  • 選擇重複或唯一 行; 選擇空白行 (所有單元格都是空的); 超級查找和模糊查找 在許多工作簿中; 隨機選擇...
  • 確切的副本 多個單元格,無需更改公式參考; 自動創建參考 到多張紙; 插入項目符號,複選框等...
  • 提取文字,添加文本,按位置刪除, 刪除空間; 創建和打印分頁小計; 在單元格內容和註釋之間轉換...
  • 超級濾鏡 (將過濾方案保存並應用於其他工作表); 高級排序 按月/週/日,頻率及更多; 特殊過濾器 用粗體,斜體...
  • 結合工作簿和工作表; 根據關鍵列合併表; 將數據分割成多個工作表; 批量轉換xls,xlsx和PDF...
  • 超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。 在您的企業或組織中輕鬆部署。 完整功能 30 天免費試用。 60 天退款保證。
kte選項卡201905

Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
officetab底部
按評論排序
留言 (10)
5中的5評分 · 1評級
網站主持人對此評論進行了最小化
長期以來,我一直使用 R1C1 單元格引用,因為我不知道 =SUBSTITUTE(ADDRESS(1,number,4),1,"") 解決方案。 謝謝!!
網站主持人對此評論進行了最小化
=CHAR(列( )+64)
網站主持人對此評論進行了最小化
不好,因為它只適用於 26 列。
網站主持人對此評論進行了最小化
你好,cuando pego la formula = SUSTITUIR (DIRECCIÓN (1,200,4), 1, "") en una celda no hace nada, solo devuelve la formula, ya sea con 200 o cualquier otro numero
網站主持人對此評論進行了最小化
函數 ToColletter(Collet) 用作 volatile 函數。 如果工作表中的任何地方發生了變化。 它到處重新計算。 就我而言,它進行了 15 萬次計算並減慢了計算速度。 如果我不想將 application.calculation 設置為手動而不是返回,你知道如何解決它嗎?
網站主持人對此評論進行了最小化
非常感謝!!!...您創建數字列字母的公式對我有很大幫助。
網站主持人對此評論進行了最小化
A到ZZ
=if(row()>26,char(row()/26+64)&char(mod(row(),26)+64),char(row()+64))
網站主持人對此評論進行了最小化
此公式不適用於 26 的倍數的行。它給出 B@ 而不是 AZ、C@ 而不是 BZ、D@ 而不是 CZ 等。
Correction:= IF(ROW()>26,(IF(MOD(ROW(),26)=0,CHAR((ROW()-1)/26+64)&CHAR(MOD(ROW()-1,26)+65), CHAR(ROW()/26+64)&CHAR(MOD(ROW(),26)+64))),CHAR(ROW()+64))
網站主持人對此評論進行了最小化
最佳解決方案 =SUBSTITUTE(ADDRESS(1;COLUMN();4);1;"")
非常感謝。
5中的5評分
網站主持人對此評論進行了最小化
公共函數 AlphabetInteger(ByVal letter As String) As Integer
將 N 調暗為整數
字母 = Strings.UCase(字母)
如果字母 = "A" 那麼
N = 1
ElseIf 字母 = "B" 則
N = 2
ElseIf 字母 = "C" 然後
N = 3
ElseIf 字母 = "D" 然後
N = 4
ElseIf 字母 = "E" 然後
N = 5
ElseIf 字母 = "F" 則
N = 6
ElseIf 字母 = "G" 則
N = 7
ElseIf 字母 = "H" 則
N = 8
ElseIf 字母 = "I" Then
N = 9
ElseIf 字母 = "J" 則
N = 10
ElseIf 字母 = "K" 則
N = 11
ElseIf 字母 = "L" 則
N = 12
ElseIf 字母 = "M" 然後
N = 13
ElseIf 字母 = "N" 則
N = 14
ElseIf 字母 = "O" 則
N = 15
ElseIf 字母 = "P" 則
N = 16
ElseIf 字母 = "Q" 則
N = 17
ElseIf 字母 = "R" 然後
N = 18
ElseIf 字母 = "S" 則
N = 19
ElseIf 字母 = "T" 然後
N = 20
ElseIf 字母 = "U" 則
N = 21
ElseIf 字母 = "V" 則
N = 22
ElseIf 字母 = "W" 則
N = 23
ElseIf 字母 = "X" 則
N = 24
ElseIf 字母 = "Y" 則
N = 25
ElseIf 字母 = "Z" 則
N = 26
其他
N = 0
如果結束
字母整數 = N
函數結束


公共函數 ColumnNumber(ByVal columnLetter As String) As Integer
將 I 調暗為整數
Dim sLength 作為整數
將 N 調暗為整數
將 A 調暗為整數
將 P 調暗為整數
將 C 調暗為字符串

sLength = Len(列字母)
N = 0
對於 I = 1 到 sLength
P = sLength - 我
C = Strings.Mid(columnLetter, I, 1)
A = 字母整數 (C)
N = N + A * 26 ^ P
接下來我
列號 = N
函數結束
這裡還沒有評論
留下你的意見
以訪客身份發帖
×
評價此帖子:
0   字符
推薦地點

關注我們

版權所有©2009 - 萬維網。extendoffice.com。 | 版權所有。 供電 ExtendOffice。 |
Microsoft和Office徽標是Microsoft Corporation在美國和/或其他國家的商標或註冊商標。
受Sectigo SSL保護