★ExcelVBA ～ 列番号（列のアルファベット）から、列のインデックス（列の数字）を求める、あるいは、その逆を行う方法
https://www.tipsfound.com/vba/09003
https://learn.microsoft.com/ja-jp/office/troubleshoot/excel/convert-excel-column-numbers
にありました。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 |
' ' Function ClmnNumCnvToLetr(i_Col As Long) As String Dim a As Long Dim b As Long a = i_Col ClmnNumCnvToLetr = "" Do While i_Col > 0 a = Int((i_Col - 1) / 26) b = (i_Col - 1) Mod 26 ClmnNumCnvToLetr = Chr(b + 65) & ClmnNumCnvToLetr i_Col = a Loop End Function 'その逆↓。列のアルファベットから列の数字を取得する Function ClmnLetrCnvToNum(s_ClmnLeter As String) As Long ClmnLetrCnvToNum = Application.Range(s_ClmnLeter & 1).Column End Function ' ' |
