如何在 Excel 中找到包含数据的最后一行或最后一列？

在大型工作表中，如果想要快速轻松地确定包含值的最后一行或最后一列，您只需拖动滚动条即可找到它。但如果您的工作表中有成千上万的数据行，这将非常麻烦。在本文中，我将介绍一些有用的 VBA 代码来帮助您解决此问题。

使用 VBA 代码查找包含数据的最后一行或最后一列
使用 Kutools for Excel 查找并选择包含数据的最后一行或最后一列

使用 VBA 代码查找包含数据的最后一行或最后一列

我们大多数人都会考虑通过按 Ctrl + End 键来定位最后一个单元格以找到最后一行和最后一列，但如果数据区域下方有一些带有格式的单元格，快捷键将无法准确定位到有值的单元格。因此，请在这里使用以下 VBA 代码：

1. 激活您要确定包含数据的最后一行或最后一列的工作表。

2. 按住 ALT + F11 键打开 Microsoft Visual Basic for Applications 窗口。

3. 然后点击 插入 > 模块，并将以下代码粘贴到模块窗口中。

VBA 代码：查找包含数据的最后一行

Sub sblastRowOfASheet()
'Update 20140603
Dim xLastRow As Long
xLastRow = Application.ActiveSheet.Cells.SpecialCells(xlLastCell).Row
MsgBox "Last Used Row: " & xLastRow
Do While Application.CountA(ActiveSheet.Rows(xLastRow)) = 0 And xLastRow <> 1
    xLastRow = xLastRow - 1
Loop
MsgBox "Last Row with Data: " & xLastRow
End Sub

4. 然后按 F5 键运行此代码，弹出框将显示已使用的范围的行号。请参见截图：

5. 继续点击 确定 按钮，此时包含值的最后一行号已显示如下截图所示：

备注：要查找包含数据的最后一列，请应用以下代码：

VBA 代码：查找包含数据的最后一列

Sub sblastcolumnOfASheet()
'Update 20140603
Dim xLastcolumn As Long
xLastcolumn = Application.ActiveSheet.Cells.SpecialCells(xlLastCell).Column
MsgBox "Last Used column: " & xLastcolumn
Do While Application.CountA(ActiveSheet.Columns(xLastcolumn)) = 0 And xLastcolumn <> 1
    xLastcolumn = xLastcolumn - 1
Loop
MsgBox "Last column with Data: " & xLastcolumn
End Sub

使用 Kutools for Excel 查找并选择包含数据的最后一行或最后一列

如果您想直接在 Excel 中查找并选择包含数据的最后一行或最后一列，Kutools for Excel 的“选择最后一行”和“选择最后一列”功能可以帮助您。请按照以下步骤操作。

1. 如果您想查找并选择包含数据的最后一行，请点击 Kutools > 选择 > 选择最后单元格 > 最后一行。请参见截图：

备注：若要查找并选择包含数据的最后一列，请点击 Kutools > 选择 > 选择最后单元格 > 最后一列。

然后立即找到并选择当前工作表中包含数据的最后一行或最后一列。

演示：使用 Kutools for Excel 查找并选择包含数据的最后一行或最后一列