如何在 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 查找並選擇包含數據的最後一行或列