刪除表 vba 中的最后一行

Question

您好已使用以下代碼從表中刪除最后一行數據。 該代碼可以單獨運行，但是當作為更大代碼集的一部分運行時，它不會刪除最后一行。 任何有關導致此問題和解決方案的想法將不勝感激。

Sub TrimJrnl()
    
    Dim wsR2 As Worksheet
    
    Set wsR2 = ThisWorkbook.Sheets("Journal")
    
    lastrow = wsR2.ListObjects("xJrnl").Range.rows.Count
    
    rows(lastrow).Delete
    
End Sub

Answer 1

1. 您需要計算ListObjects("xJrnl").DataBodyRange的行數，以便知道有多少數據行（標題行和摘要行除外）。

2. 您可以通過ListObjects("xJrnl").ListRows(LastRow)和.Delete訪問這些數據行。

如下：

Option Explicit

Public Sub TrimJrnl()
    Dim wsR2 As Worksheet
    Set wsR2 = ThisWorkbook.Sheets("Journal")
    
    Dim LastRow As Long
    LastRow = wsR2.ListObjects("xJrnl").DataBodyRange.Rows.Count
    
    wsR2.ListObjects("xJrnl").ListRows(LastRow).Delete
End Sub

如何使用表格的一個很好的指南： ListObject Excel 表格的 VBA 指南