excel - 计算Excel中的选择行

Question

• 我有一大组Excel行，中间有空行。
• 所以我想把空行算作组。
• 将每个组计数放在行之上，然后删除所有空行。

前任。

• 数据行。
• 数据行。我想计算下面的所有空行。放在该行的单元格上 (3)
• 空的 。
• 空的 。
• 空的 。
• 数据行。
• 数据行。
• 数据行。
• 数据行。(2)。
• 空行。
• 空行。
• 数据行。(4)
• 空的。
• 空的。
• 空的。
• 空的。
• .
• .
• .
• .
• ETC

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