我搞砸了我的頭，無法弄清楚為什么我會收到這個錯誤......
ActiveSheet.ListObjects("Tabela6").Range.AutoFilter Field:=164, Criteria1:= _
"N?o"
With Worksheets("Thundera").AutoFilter.Range
Range("FH" & .Offset(1, 0).SpecialCells(xlCellTypeVisible)(1).Row).EntireRow.Select
End With
Range(Selection, Selection.End(xlDown)).Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.EntireRow.Delete
ActiveSheet.ShowAllData
我真的陷入了死胡同......非常感謝任何幫助！謝謝！
uj5u.com熱心網友回復：
請嘗試使用下一種方式。我詢問了您真正需要洗掉的內容，但您沒有回答...所以我為這兩種可能性準備了一個答案：
- 下一個代碼洗掉 TABLE 行：
Sub DeleteTableRows()
Dim tbl As ListObject
Set tbl = ActiveSheet.ListObjects("Tabela6")
tbl.Range.AutoFilter field:=164, Criteria1:="N?o"
Application.DisplayAlerts = False
tbl.DataBodyRange.SpecialCells(xlCellTypeVisible).Delete
Application.DisplayAlerts = True
End Sub
- 這一個通過 TABLE 可見單元格洗掉 SHEET 行：
Sub DeleteSheetRows()
Dim tbl As ListObject
Set tbl = ActiveSheet.ListObjects("Tabela6")
tbl.Range.AutoFilter field:=164, Criteria1:="N?o"
Application.DisplayAlerts = False
tbl.DataBodyRange.SpecialCells(xlCellTypeVisible).rows.Delete
Application.DisplayAlerts = True
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/486101.html
上一篇：防止貓鼬在資料庫中插入模板模式