列名・列番号変換

列番号を列名に変換する。

Function ConvCol(ByVal colNum As Long) As String
    ConvCol = VBA.Split(Columns(colNum).Address, "$")(2)
End Function

列名を列番号に変換する。

Function ConvColNm(ByVal colNm As String) As Long
    ConvColNm = Columns(colNm).Column
End Function

Index