Question

我使用了自动过滤功能，但使用带有标题名称的字段＆＃34; ID＆＃34;而是列数。对于这部分，没关系。然后我试图删除自动过滤器结果，但我是Stuck。我看到有几个关于这个问题的问题，但没有解决方案。但是我试过这段代码，但它没有用。

我会将这个宏用于多个数据。目的是清除空白的所有数据。谢谢你提前帮助

这是我的代码：

DatabaseReference ref=FirebaseDatabase.getInstance().getReference();
ref.child("Products").orderByChild("price");

Answer 1

我试图在移除它们之前总是使用自动过滤器找到空单元格，但是我坚持使用它。相反，我使用了SpecialCells函数，因为我想删除空单元格。所以它可以工作，但如果我想删除其他特殊标准，而不是在SpecialCells Methode中没有指定的空白或somting的其他特殊标准，我将遇到问题，但到目前为止这里是一个解决方案。我希望这会对某人有所帮助。这是一个代码。如果您有使用Autofilter的解决方案，请分享。谢谢

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

使用标题名称删除自动过滤字段重新排列

1 个答案: