ワークシートの列番号を列文字に変換

引数の列番号から列文字を返すメソッド

最後の列（XFD）は16384番目となる

Function ColumnNumberToLetter(ByRef columnNumber As Integer) As String
    If (columnNumber < 1 Or columnNumber > 16384) Then
        Exit Function
    End If
    Dim l_columnString() As String: l_columnString = Split(Cells(1, columnNumber).Address, "$")
    If ((Not l_columnString) = -1) Then
        Exit Function
    End If
    If (UBound(l_columnString) = 2) Then
        ColumnNumberToLetter = l_columnString(1)
    End If
End Function