VBA如何获取ListObject指定表头对应的表内列序号而非工作表列号

问题原因 #

你代码的问题核心有两点：

1. Find返回的是工作表原生Range对象，它的Index属性返回的是该单元格在整个工作表中的列序号，而非表格内部的相对列号，所以你会拿到工作表的列号6而非表格内的3。
2. 如果Find没有匹配到指定表头，直接调用.Index会触发空对象引用错误，缺少容错判断。

解决方案 #

方案1：基于Find方法修正（适配原有写法）

通过「找到的单元格列号 - 表头行起始列号 + 1」计算表格内相对列号，同时增加空值判断：

Sub MWE()
    Dim wb As Workbook: Set wb = ThisWorkbook
    Dim ws As Worksheet: Set ws = wb.Sheets("worksheet1")
    Dim lo As ListObject: Set lo = ws.ListObjects("table1")
    Dim findRng As Range
    Set findRng = lo.HeaderRowRange.Find("Column3", LookIn:=xlValues, LookAt:=xlWhole)
    Dim j As Long
    If Not findRng Is Nothing Then
        ' 计算表头在表格范围内的相对位置
        j = findRng.Column - lo.HeaderRowRange.Column + 1
    Else
        j = 0 ' 标记未找到
    End If
End Sub

方案2：直接遍历表格列（更稳定，推荐）

ListObject的ListColumn对象自带Index属性，直接返回表格内部的列序号，不需要额外计算，也不受Find参数匹配规则影响：

Sub GetTableColumnIndex()
    Dim wb As Workbook: Set wb = ThisWorkbook
    Dim ws As Worksheet: Set ws = wb.Sheets("worksheet1")
    Dim lo As ListObject: Set lo = ws.ListObjects("table1")
    Dim col As ListColumn
    Dim j As Long
    j = 0 ' 初始值标记未找到
    For Each col In lo.ListColumns
        If col.Name = "Column3" Then
            j = col.Index
            Exit For
        End If
    Next
End Sub

内容的提问来源于stack exchange，提问作者user3601876