vba - Excel ListObject テーブル - ListObject テーブルからフィルター処理された/非表示の行を削除します

Question

ListObject テーブルからフィルター処理された/非表示の行を削除する方法を見つけようと頭を悩ませています。

フィルタリングはコードを通じて実行されるのではなく、ユーザーがテーブル ヘッダー フィルターを使用して実行します。ListObject テーブルを非表示にして小計操作を実行する前に、フィルター処理された/非表示の行を削除したいと考えています。テーブルを非表示にする前にフィルター処理された/非表示の行を削除しないと、これらの行が再び表示されます。

現在のコード:

Sub SubTotalParClassification(ReportSheetTitle)
Dim ws As Worksheet
Dim drng As Range

Endcol = ColCalculationEndIndex
Set ws = Sheets(ReportSheetTitle)

'CODE TO REMOVE HIDDEN/FILTERED ROWS
Set lo = ActiveSheet.ListObjects("Entrée")
For i = 1 To lo.ListRows.Count Step 1
    If Rows(lo.ListRows(i).Range.Row).Hidden = True Then
        lo.ListRows(i).Delete
Next

' convert the table back to a range to be able to build subtotal
ws.ListObjects("Entrée").Unlist
With ws
    'Select range to Subtotal
    Set drng = .Range(.Cells(REPORTHEADERROW, REPORTSSTARTCOL),     .Cells(EndRow, Endcol))

    'apply Excel SubTotal function
    .Cells.RemoveSubtotal
    drng.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(Endcol - 6,   Endcol - 5, Endcol - 4, Endcol - 3, Endcol - 2, Endcol - 1)
     End With

'Update EndRow
EndRow = ActiveSheet.Cells(Rows.Count, REPORTSSTARTCOL).End(xlUp).Row
End Sub