[VBA] 列转列序数

来源:互联网 发布:c语言抑或符号 编辑:程序博客网 时间:2024/04/28 09:50
'column A = intColumn 1
Public Function func_coltonum(ByVal strColumn As String) As Long
On Error GoTo lb_cannot_resolve
    func_coltonum = Range(strColumn & "1").Column
    Exit Function
lb_cannot_resolve:
    func_coltonum = 0
End Function