Excelで、A1形式をR1C1形式へ、R1C1形式をA1形式変換する方法（自分

Excelで、A1形式をR1C1形式へ、R1C1形式をA1形式変換する方法を、関数でかつエクセルのバージョンを
意識せずに使用できるものを探したが見つからなかったので、作ってみた。
かなりシンプルなコードに収まって自己満足（作成に時間はだいぶかかったが…）

'A1形式をR1C1形式へ変換する
'1 → A
'26 → Z
'27 → AA
'52 → AZ
'52 → BA
'256 → IV
'16384 → XFD
Public Function gfncN2A(ByRef lVal As Long) As String

Dim sVal As String
Dim lSyo As Long
Dim lAmari As Long

lSyo = lVal \ 26
lAmari = lVal Mod 26
If lAmari = 0 Then
lSyo = lSyo - 1
lAmari = 26
End If
sVal = sVal & Chr(64 + lAmari)
If lSyo > 0 Then
sVal = gfncN2A(lSyo) & Chr(64 + lAmari)
End If

gfncN2A = sVal

End Function

'R1C1形式をA1形式へ変換する
'A → 1
'Z → 26
'AA → 27
'AZ → 52
'BA → 52
'IV → 256
'XFD → 16384
Public Function gfncA2N(ByRef sVal As String) As Long

Dim lVal As Long

lVal = Asc(Right(sVal, 1)) - 64

If Len(sVal) - 1 > 0 Then
sVal = Left(sVal, Len(sVal) - 1)
lVal = lVal + gfncA2N(sVal) * 26
End If

gfncA2N = lVal

End Function

なぜ作ったかといえば、Range(Cells(row,col),Cells(row,col))でエラーになる命令
が多かったため。
R1C1形式が使用できればいいが、業務要件でできなかったため。