Excel删除循环范围内的空行

Question

我有多个相同的数组，这些数组根据用户选择的数量显示这些数组。每个数组都分为三个数组。

因此，如果用户选择3，则显示连续的相同数组。

我要删除每个数组中的空行。

我们可以做的是在每个数组上循环，如下所示：

For i = 1 To NbTasks


        For j = (39 + (i - 1) * 50) To (44 + (i - 1) * 50)
        If IsEmpty(Cells(j, "D").Value) Then ActiveSheet.rows(j).Delete
        End If
        Next j

        D = 50 + (i - 1) * 50
        If IsEmpty(Cells(D, "B").Value) Then ActiveSheet.rows(D).Delete
         End If

        For Z = (56 + (i - 1) * 50) To (64 + (i - 1) * 50)
        If IsEmpty(Cells(Z, "B").Value) Then ActiveSheet.rows(Z).Delete

        End If
        Next Z Next i

但是问题是只要条件为真，该行就会被删除，因此索引将超出范围并删除指定范围之外的行。