怎样使用VBA返回列号对应之英文字母？

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Function Col(Optional ColNum) As String  '返回指定列的列号,参数为可选

    Application.Volatile
    If Not VBA.IsNumeric(ColNum) Then Coll=""
  If VBA.IsNumeric(ColNum) Then  '如果输入的是数字
  If ColNum > 16384 Or ColNum < 1 Then Col="超出范围": Exit Function
  '不能大于16384或者小于1
  Col=Left(Cells(1, ColNum).Address(0, 0), 1-(ColNum > 26)-(ColNum > 702))
  '取得列号
  Exit Function
  End If
  '如果不输入参数，则返回当前列的列号
  Col=Left(Cells(1, ActiveCell.Column).Address(0, 0), 1 –
  (ActiveCell.Column > 26)-(ActiveCell.Column > 702))  '取得列号
End Function

5、在单元格A1中输入公式“=col()”，因省略了参数，则单元格显示当前列的列号“A”