彰化一整天的論壇

 找回密碼
 立即註冊
查看: 209|回復: 1

excel取得儲存格欄位的英文數字

[複製鏈接]
發表於 2017-5-3 16:59:53 | 顯示全部樓層 |閱讀模式
  1. Function Col_Letter(lngCol As Long) As String
  2. Dim vArr
  3. vArr = Split(Cells(1, lngCol).Address(True, False), "$")
  4. Col_Letter = vArr(0)
  5. End Function
複製代碼


  1. Sub Test()
  2. MsgBox Col_Letter(100)
  3. End Sub
複製代碼
資料來源:http://stackoverflow.com/questio ... mn-number-to-letter
回復

使用道具 舉報

 樓主| 發表於 2017-5-3 17:05:25 | 顯示全部樓層
  1. Function column_letter(ByVal r As Range)
  2.     Dim t As Variant
  3.     t = Split(Range.Address(False, True), "$")
  4.     column_letter = t(0)
  5. End Function
複製代碼
回復 支持 反對

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 立即註冊

本版積分規則

 ㄚ母滴雞湯
 員林香純滴雞精

Archiver|手機版|小黑屋|彰化一整天的論壇(Excel,Office)  |网站地图

GMT+8, 2018-6-25 10:32 , Processed in 0.027657 second(s), 9 queries , Apc On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回復 返回頂部 返回列表