获取Excel数据库导入表中A列最后有数据行的替代方法求助

针对数据库关联的Excel结构化表（ListObject），原代码失效的原因是这类表会维护自身的范围边界，哪怕行无数据，End(xlUp)仍会停在表的最后一行。以下是两种可靠的替代写法：

方法1：基于表列的End(xlUp)定位 #

适用于表内无连续空行到末尾的场景：

Dim tbl As ListObject
Set tbl = Worksheets("Sheet1").ListObjects("Table1") '替换为你的实际表名
Dim lastDataRow As Long

If Not tbl.DataBodyRange Is Nothing Then
    '定位表第一列（对应工作表A列）的最后非空行
    lastDataRow = tbl.ListColumns(1).DataBodyRange.Cells(tbl.ListColumns(1).DataBodyRange.Rows.Count, 1).End(xlUp).Row
Else
    '表无数据行，返回表头行号
    lastDataRow = tbl.HeaderRowRange.Row
End If

方法2：用Find方法精准定位（推荐） #

即使表中间存在空行，也能准确找到最后一个有数据的单元格：

Dim tbl As ListObject
Set tbl = Worksheets("Sheet1").ListObjects("Table1") '替换为你的实际表名
Dim lastDataCell As Range
Dim lastDataRow As Long

If Not tbl.DataBodyRange Is Nothing Then
    Set lastDataCell = tbl.ListColumns(1).DataBodyRange.Find(What:="*", _
                        LookIn:=xlValues, _
                        SearchOrder:=xlByRows, _
                        SearchDirection:=xlPrevious)
    If Not lastDataCell Is Nothing Then
        lastDataRow = lastDataCell.Row
    Else
        '数据区域全为空，返回表头行号
        lastDataRow = tbl.HeaderRowRange.Row
    End If
Else
    '表无数据行，返回表头行号
    lastDataRow = tbl.HeaderRowRange.Row
End If

注意事项 #

• 把代码中的"Table1"替换成你实际的数据表名称
• 如果不确定表名，可改用Worksheets("Sheet1").ListObjects(1)取第一个表

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