excel vba count每個非空單元格下面的空白單元格的數量

Question

我對Excel VBA很新穎。我想要做的是創建一個VBA循環，它將計算每個非空單元下的單元數。

col c col d 
abc  1 
     2 
     3 
     4 
abc  5 
     6 
     7 
     8 
     9 
     10 

這裏是我試過到目前爲止：

Sub test() 

Dim a, b, c, d, i, k As Integer 
Dim y As Range 

k = Worksheets("Sheet2").Range("d" & Rows.Count).End(xlUp).Row '13 
a = 3 
b = 3 

For i = 4 To k       
    If IsEmpty(Cells(i, 3)) = True Then   
     c = c + 1      
    Else   
     d = d + 1    
    End If  
Next 

MsgBox c 
MsgBox d 

End Sub 

Answer 1

試試這個

Sub main2() 
    Dim iArea As Long 
    Dim rng As Range 

    With Worksheets("Sheet2") 
     Set rng = .Range("D4", .Cells(.Rows.count, "D").End(xlUp)).Offset(, -1) '<--| set the range of its column "C" cells corresponding to its column "D" ones from row 2 down to last not empty one 
     With rng.SpecialCells(xlCellTypeConstants) '<--| reference not empty rng cells 
      For iArea = 1 To .Areas.count - 1 
       MsgBox .Parent.Range(.Areas(iArea).Cells(1, 1), .Areas(iArea + 1).Cells(1, 1).Offset(-1)).SpecialCells(xlCellTypeBlanks).count 
      Next iArea 
      MsgBox .Parent.Range(.Areas(iArea).Cells(1, 1), rng(rng.Rows.count)).SpecialCells(xlCellTypeBlanks).count 
     End With 
    End With 
End Sub