如果特定单元格为空，则VBA Sort shift删除2个单元格

Question

我需要一些VBA代码的帮助。如果B列中的单元格为空，我试图在2列A和B中删除2个单元格。我需要重复这个动作10次。

我有一个VBA代码可以使用B列中的空白过滤器来执行此操作。但是，对于小型数据集，它可以正常工作，因为我的数据集非常大并且操作需要重复10次，因此需要花费很多时间时间。

Sub del()
  For i = 1 To 10
    ActiveSheet.Range("A1").AutoFilter Field:=2, Criteria1:="="
    Range("b:b" & Cells(Rows.Count, "A").End(xlUp).Row).Select
    Selection.SpecialCells(xlCellTypeVisible).Delete Shift:=xlToLeft

    Range("a:a" & Cells(Rows.Count, "A").End(xlUp).Row).Select
    Selection.SpecialCells(xlCellTypeVisible).Delete Shift:=xlToLeft

 Next i

End Sub

我在想，而不是过滤，以： -sort列B以获得最后的所有空格 - 从第一个空白单元格中选择，直到行结束（对于A和B列） - 删除所选 - 重复此动作10次

我尝试了一些方法，但我无法为此获得正确的代码。

非常感谢任何帮助！

感谢， 丹妮拉