Excel VBA：查找Excel表格中的最后一个空单元格，而不是范围答案

【问题标题】：Excel VBA: find the last empty cell in an Excel table, not rangeExcel VBA：查找Excel表格中的最后一个空单元格，而不是范围
【发布时间】：2019-12-23 19:03:32
【问题描述】：

我发现以下代码没有返回该特定列中最后使用的行号。

ThisWorkbook.Sheets(1).Cells(max_row, last_data_column + 1).End(xlUp).Row

它返回的是 Excel 表格中最后使用的行号。

我有一个范围为 A1:AB142 的 Excel 表格。在最后一行 (142) 中，只有 B 列有数据，其余为空。上面的代码返回 142，而不是 141，不管 last_data_column 是什么（我试过 22 和 23）。

同样，End(xlDown) 无法正常工作。即使只有 W1 有数据，第一行的其余部分都是空白的，

ThisWorkbook.Sheets(1).Range("W1").End(xlDown).Row

当 W142 为空白且 W1 到 W141 不为空白时，给出 2。

如何在 Excel 表格的特定列中找到最后一个空单元格？，

【问题讨论】：

标签： excel vba

【解决方案1】：

使用.Find 方法查找表中包含数据的最后一行。

然后偏移一以罚款最后一个空行。

类似于（获取最后一行）：

    Dim LO As ListObject
    Dim C As Range

Set LO = Sheet1.ListObjects("Table1")

With LO.Range.Columns(column_to_check) 'column_to_check is relative to the LO.Range
    Set C = .Find(what:="*", after:=.Cells(1), LookIn:=xlValues, _
        searchorder:=xlByRows, searchdirection:=xlPrevious)
    If Not C Is Nothing Then
        'do stuff`
        Debug.Print C.Row+1 'last empty row
          'If the row is the last in the table, then column is full
    End If

要查找 First 空行，例如：

With LO.Range.Columns(1)
    Set C = .Find(what:="", after:=.Cells(1), LookIn:=xlValues, _
        searchorder:=xlByRows, searchdirection:=xlNext)
    If Not C Is Nothing Then
        'do stuff`
        Debug.Print C.Row 'First empty row
    End If
End With

【讨论】：