获取单元格所在列的名称

    要获取单元格所在列的名称，如A9单元格的列名“A”，可以用公式和自定义函数的方法来实现。

1.用公式获取列名

    在任意单元格中输入公式：

=LEFT(ADDRESS(ROW(),COLUMN(),4),LEN(ADDRESS(ROW(),COLUMN(),4))-LEN(ROW()))

    公式说明：先用ROW和COLUMN函数返回公式所在单元格的行号和列号，然后用ADDRESS函数返回该单元格的地址，最后一个参数4，表示返回的引用类型为相当引用，即返回A1样式地址。最后用LEFT函数返回列名。

    在A9单元格中输入公式：

=SUBSTITUTE(ADDRESS(1,COLUMN(A9),2),"$1","")

    公式说明：用ADDRESS函数返回A9单元格的地址，最后一个参数为2，表示返回的引用类型为绝对行号和相对列标，即A$1式样。然后用SUBSTITUTE函数将其中的“$1”替换为空。

2.用自定义函数获取列名

    按Alt+F11，打开VBA编辑器，单击菜单“插入→模块”，在右侧代码窗口中输入：

Function ColumnLetter1(rng As Range) As String ColumnLetter1 = Replace(rng.EntireColumn.Cells(1).Address(, False), "$1", "") End Function

    然后在A9单元格中输入公式

=ColumnLetter1(A9)

    或：

Function ColumnLetter2(rng As Range) ColumnLetter2= Mid(rng.Address, 2, InStr(2, rng.Address, "$") - 2) End Function

    然后在A9单元格中输入公式

=ColumnLetter2(A9)