获取当前激活单元所在的Listobject 表格的列名称

End Function

2020年05年26日改进版

'获取光标所在列名
Public Function gf_GetActiveColumnName(ByVal Target As Range)
    Dim lo As ListObject
    Set lo = Target.ListObject
    gf_GetActiveColumnName = ""
    If Not lo Is Nothing Then
        If lo.Active Then
            gf_GetActiveColumnName = lo.HeaderRowRange.Cells(1, Target.Column - lo.Range.Column + 1).Value
        End If
    End If
End Function
''获取光标所在列名 另一种方法
'Public Function gf_GetActiveColumnName(ByRef Target As Range) As String
'    If Not Target.ListObject Is Nothing Then
'        gf_GetActiveColumnName = Intersect(Target.ListObject.HeaderRowRange, Target.EntireColumn).Value
'    Else
'        gf_GetActiveColumnName = ""
'    End If
'End Function