Excelで選択行をカウントする

Question

• 私はExcel行の大きなセットを持っており、その間に空の行があります。
• だから私はグループとして空の行を数えたいと思う。
• すべてのグループ数を1行上に置き、すべての空の行を削除します。

ex。

• データ行。
• データ行。私はその行のすべての空の行を数えたいと思っています。（3）
• 空です。
• が空です。
• が空です。
• データ行。
• データ行。
• データ行。
• データ行。 （2）。
• 空の行。
• 空の行。
• データ行。 （4）
• が空です。
• が空です。
• が空です。
• が空です。
• 。
• 。
• 。
• 。
• など

Answer 1

あなたが（セルA1に開始）スプレッドシートの列Aにデータを持っていて、空のスペースをカウントし、次のように行を削除したいとします

 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