从列号获取列名？

Question

我在一张纸上有几个命名的列。我想将列号发送到将返回列名的函数。

例如，如果第 1 列名为“apple”，我想将第 1 列传递给返回列名称“apple”的函数。我的尝试：

Function getColName(colNumber As Integer) As String
'return column name when passed column number

    getColName = Cells(1, colNumber).Column.Name

End Function

我怎样才能让这个代码工作？

Answer 1

试试这个：

set cell_address = Worksheet("Sheet1").Cells(1,1)
MsgBox cell_address.address(RowAbsolute:=False, ColumnAbsolute=False) 

'returnsA1 您也可以使用它Range("A1")并获得更多功能。

**Note**: RowAbsolute:=False, ColumnAbsolute=False are optional 

想要查询更多的信息：

https://msdn.microsoft.com/en-us/vba/excel-vba/articles/range-address-property-excel

对于非 vba：https : //exceljet.net/formula/convert-column-number-to-letter