Excel VBA水平計數

Question

我有一系列單元格，從列CA開始並轉到CX，我需要做的是計算該範圍內單元格數量不等於0的單元格，但一次只計算一行。

Answer 1

這應該適合你。您需要根據您的數據更改環路範圍

Sub CountValues() 
    Dim lcell As Range 
    Dim c_row As Long 
    Dim values_counter As Long 
    c_row = 0 
    For Each lcell in Range("$CA$2","$CX$100") 
     If lcell.row <> c_row then 
      values_counter = 0 
      c_row = lcell.row 
     End If 
     If lcell.value <> 0 Then 
      values_counter = values_counter + 1 
     End If 
     If lcell.Column = Cells(1, "CX").Column Then 
      'Do Something with values_counter here 
     End If 
    Next lcell 

End Sub