如何获取单元格的列号(需要使其在Z列上工作,如AA,AB)

Question

可能重复:
VBA函数将列号转换为字母？

我希望列字符超过Z列,有许多技术可以在Z列之前获取它但在Z之后,似乎没有任何工作有没有办法这样做？

Answer 1

另一种方法:

Public Function ColumnLettersFromRange(rInput As Range) As String

    ColumnLettersFromRange = Split(rInput.Address, "$")(1)

End Function

Answer 2

这应该做的工作:

Function ColumnName(rng As Range) As String
    Dim s As String
    s = rng.Address(False, False)
    ColumnName = Left(s, Len(s) - Len(Format(rng.Row, "0")))
End Function