VBA删除链接表中自动筛选的行

Question

>我有一个链接表，我想根据日期删除行。我让它一直解决到我想删除收到错误消息"范围类的删除方法失败"的行时。这里到底会出什么问题？

Sheets("TimeSeries").Select
Range("TimeSeries[#Headers]").Select
Selection.AutoFilter
ActiveSheet.ListObjects("TimeSeries").Range.AutoFilter Field:=4, Operator:= _
    xlFilterValues, Criteria2:=Array(1, Format(Sheets("Start").Range("C2").Value, "mm/dd/yyyy"))
Range("A1").Select
Selection.End(xlDown).Select
Range(Selection, Selection.End(xlUp)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.SpecialCells(xlCellTypeVisible).Offset(0, 0).Select
Selection.EntireRow.Delete

谢谢！

Answer 1

假设您的自动过滤语句工作正常，无需使用 Select ，请尝试以下方式：

With Sheets("TimeSeries").ListObjects("TimeSeries").Range
  .AutoFilter ......
  .Offset(1).Delete
  .AutoFilter
End With