计算Excel中的选择行

Question

• 我有一大排Excel行，我之间有空行。
• 所以我想将那些空行计为小组。
• 将每个组计数在行上方，然后删除所有空行。

离。

• 数据行。
• 数据行。我想计算下面的所有空行。输入该行上的单元格（3）
• 空。
• 空。
• 空。
• 数据行。
• 数据行。
• 数据行。
• 数据行。 （2）。
• 空行。
• 空行。
• 数据行。 （4）
• 空。
• 空。
• 空。
• 空。
• 。
• 。
• 等

Answer 1

假设您的数据位于电子表格的A列（从单元格A1开始），并且您希望计算空格并删除行，如下所示：

      Col A    Col B                          Col A      Col B
1     AAA                                     AAA        2
2                                             BBB        1
3                                             CCC        0
4     BBB                                     DDD        2
5                          ---- Output --->   EEE
6     CCC
7     DDD
8
9
10    EEE 

以下代码将实现这一结果：

Sub CountEmptyRows()
    Dim lastRow As Long, rw As Long, count As Integer

    lastRow = Range("A65536").End(xlUp).Row - 1
    count = 0

    For rw = lastRow To 1 Step -1
        If IsEmpty(Cells(rw, 1)) Then //If cell is empty increment the count and delete the row
            count = count + 1
            Cells(rw, 1).EntireRow.Delete
        Else
            Cells(rw, 2) = count //Display emtpy row count and then reset counter
            count = 0
        End If
    Next rw
End Sub