samwang

¦^´_ 1# ziv976688

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
¥t¥~¡A¬°¤°»ò³£¨S¦³0®É°Ñ¦Òµª®×¦³0©MªÅ¥Õ?

Sub test()
Dim Arr, n%, i&, j&
R = [b65536].End(3).Row
Arr = Range("c47:ay" & R)
For j = 1 To UBound(Arr, 2)
    For i = 1 To UBound(Arr) Step 17
        If Arr(i, j) = "" Then GoTo 99
        If Arr(i, j) = 0 Then n = n + 1
99: Next i
    Arr(1, j) = n: n = 0
Next j
Range("c26").Resize(1, 49) = Arr
End Sub

samwang

¦^´_ 7# ziv976688

¦p·íÄ檺¦U"³Ì¤p"¦C~³£µLÅã¥Ü"0"­È®É~«hÅã¥Ü""        
>> ¤£¦n·N«ä¡A¤½¦¡¤£·|¡A2#µ{¦¡½X¥u­n¦h­Ó§PÂ_¦p¤U¶È¨Ñ°Ñ¦Ò¡AÁÂÁÂ
Sub test()
Dim Arr, n, i&, j&
R = [b65536].End(3).Row
Arr = Range("c47:ay" & R)
For j = 1 To UBound(Arr, 2)
    For i = 1 To UBound(Arr) Step 17
        If Arr(i, j) = "" Then GoTo 99
        If Arr(i, j) = 0 Then n = n + 1
99: Next i
    If n > 0 Then Arr(1, j) = n: n = 0
Next j
Range("c26").Resize(1, 49) = Arr
End Sub

samwang

¦^´_ 7# ziv976688


¦p·íÄ檺¦U"³Ì¤p"¦C~³£µLÅã¥Ü"0"­È®É~«hÅã¥Ü""  
=IF(SUMPRODUCT(SUBTOTAL(3,OFFSET(C47,ROW($1:$1026)*17-17,))*(N(OFFSET(C47,ROW($1:$1026)*17-17,))=0))=0,"",SUMPRODUCT(SUBTOTAL(3,OFFSET(C47,ROW($1:$1026)*17-17,))*(N(OFFSET(C47,ROW($1:$1026)*17-17,))=0)))