如何刪除表中具有值的最后一行

Question

我要做的是使用戶能夠刪除特定表中的最后一行數據。 當用戶這樣做時，如果他們再次單擊命令按鈕，則上面的下一行數據也將被刪除，依此類推，直到此過程在標題處停止。

因此，在所示的圖像中，當前有6行數據-單元格[分別為P22，Q22和R22]中的最后一行具有數字160、170和180。 當用戶單擊命令按鈕時，這些數字將被刪除。 如果用戶隨后再次單擊命令按鈕，則上面的下一行數字（分別為130、140和150 [分別為P21，Q21和R21]）將被刪除，依此類推。

如果說最初只有3行數據顯示在表單上，​​並且用戶單擊命令按鈕，則該行中的最后數字70、80和90 [P19，Q19和R19]將被刪除。 如果再次單擊命令按鈕，則會刪除上一行中的數字40、50和60 [P18，Q18和R18]-過程將繼續，直到在標題處停止。

在此處輸入圖片說明

任何幫助，將不勝感激，謝謝

Answer 1

假設您的“表格”是Excel表格（而不僅僅是格式化為類似於表格的范圍），則下面的代碼應該可以使用。

我的代碼假定您在名為"Sheet1"的工作"Table1"上有一個名為"Table1"的表。 根據您的需要進行更改。

Option Explicit

Private Sub DeleteLastRowInTable()
    With ThisWorkbook.Worksheets("Sheet1").ListObjects("Table1")
        If .ListRows.Count > 0 Then
            .DataBodyRange.Rows(.DataBodyRange.Rows.Count).EntireRow.Delete
        End If
    End With
End Sub

If表沒有數據（在其標題下），則If語句旨在防止錯誤。