Vba 使用标题名称删除自动筛选字段结果

我使用了Autofilter函数，但使用了标题名为“ID”的字段，而不是列数。这部分没关系。然后我试图删除自动筛选结果，但我被卡住了。我看到关于这个问题有几个问题，但没有解决办法。然而，我尝试了这个代码，但它不工作

我将对几个数据使用此宏。其目的是清除所有空白数据。谢谢你事先的帮助

这是我的密码：

Sub AdataPreparation()
Dim WorkBk As Workbook, WorkSh As Worksheet, FilterRow As Variant, DurtyRows as range 

Set WorkSh = Sheets("feuil2")
WorkSh.Activate
FilterRow = Rows("1:1").Find(What:="ID", LookAt:=xlWhole).Column
set DurtyRows as WorkSh.UsedRange.AutoFilter Field:=FilterRow, Criteria1:="=" 
DurtyRows.Delete Shift :=xlUp
End Sub

---

我试着总是使用自动过滤器来查找空单元格，然后再删除它们，但我还是坚持使用它。相反，我使用了SpecialCells函数，因为我想删除空单元格。这是可行的，但如果我想删除其他单元格，而不是SpecialCells Methode中未指定的空白或somting，那么我将遇到一个问题，但到目前为止，这里有一个解决方案。我希望这能帮助一些人。这是一个代码。如果您有使用自动筛选的解决方案，请与他人分享。谢谢

Sub data()

 Dim Wrksh As Worksheet, DurtyRows As Range, LstRw As Long


Set WorkSh = Sheets("feuil2")

    With WorkSh
    LstRw = .Cells(.Rows.Count, "A").End(xlUp).Row
    Set DurtyRows = .Range("A1:A" & LstRw).SpecialCells(xlCellTypeBlanks)
    DurtyRows.EntireRow.Delete
    .AutoFilterMode = False
  End With

End Sub

---

请编辑您的问题以包含“MCVE”示例。（见：“”）。目前，您的代码甚至无法编译，也不清楚您要做什么。样本数据和一些背景资料也会有所帮助。也请参见。到底什么是

将DurtyRows设置为
和
删除elete
？毫不奇怪，您的代码不起作用。此外，它是
Shift:=xlUp
（小写字母“L”）而不是
…x1up
此线程可能会帮助您完成旅程，它显示了如何删除已筛选的行。对不起，我昨天发布了我的脏代码。这是一天的结束，有一些视力障碍。这是没有删除自动筛选结果（空白单元格）的代码。它是有效的，也许它可以帮助一些人。为了删除结果，我正在处理它