获取Excel列名称

roych

前段时间有人在群里问怎么将列号（数字）转列名称。当时给出几个答案：
1、是用Chr函数来获取。Chr函数的作用是将ASCII码转字符。例如，Chr(65)=A，对于超过26列，则需要进一步处理。
2、是建立自定义函数：
Function getColName(ByVal colNum As Long) As String
Select Case colNum
    Case 1
    getColName = "A"
    Case 2
    getColName = "B"
…………………………
    Case Else
     getColName = ""
End Select
End Function

这里给出第三种方法，利用Excel自带的address属性来获取：

1. Function getAddr(ByVal lngColNum As Long) As String
   
2. getAddr = Mid(Sheets(1).Cells(1, lngColNum).Address, 2, Len(Sheets(1).Cells(1, lngColNum).Address) - 3)
   
3. End Function

复制代码

注：如果在Access里使用，请引用Excel控件，并打开对应的workbook和选择需要计算的worksheet。

roych

pureshadow 发表于 2015-10-12 20:15
我能砸个场子吗？

下拉到地老天荒……

小妖一出现，必然砸场子。
其实公式法不是不行。
只是当时的需求是，那个网友想获取已知数据的列标，以便在导入数据到access时可以选定区域来导入。

roych

pureshadow 发表于 2015-10-13 14:50
已知数据的列标，啥意思（你把我的好奇心勾起来了哈）？
假如一个表占了A1:AX100这么大，根据表中的某一个 ...

是的。例如有一个表，可能不是标准表，只知道从第三行是字段，但具体多少列可能是不定的。
于是，只能用usedrange或者end(xlRight)来获取需要导入的列号。例如 insert * into 表1 from [sheet1$A3:T100]
这时候就需要根据列数来获取列号了。