[µo°Ý] µn¿ý">0"­Èªº³sÄò­Ó¼Æ(§t1­Ó)

johnny1680

¤U¸ü (99.63 KB)

2020-12-9 17:15

´ú¸ÕÀÉ :   µn¿ý¤j©ó0­Èªº³sÄò­Ó¼Æ(§t1­Ó).rar (2.92 KB)

¤U¸ü¦¸¼Æ: 5

2020-12-9 17:17

AÄ欰>=0ªº¦U³Q¤ñ¹ï­È¡A¦U­È¤§¶¡¤£·|¦³ªÅ¥Õ®æ¡C
BÄ欰­pºâAÄæ>0­Èªº³sÄò­Ó¼Æ(§t1­Ó)¤§µn¿ýÄæ¡C

»Ý¨D¡J
½Ð±NAÄæ>0­È­pºâ«áªº1­Ó©M³sÄòn­Óªº­Ó¼Æ¡A
µn¿ý©óAÄæ¦U¬q>0³sÄò­Èªº³Ì¥½­È¤§¦P¦CBÄæÀx¦s®æ¡C

½Ð°Ý¡JB2ªº¨ç¼Æ¤½¦¡­n«ç»ò¼g¡H
ÁÂÁ¡I

johnny1680

¦^´_ 6# ­ã´£³¡ªL
¦^´_ 7# samwang
¦^´_ 8# ­ã´£³¡ªL
·PÁ¤G¦ì¤j¤jªº¤£§[«ü¾É~·P®¦³á   

­ã´£³¡ªL

Sub test()
Dim Arr, V&, N&
Arr = Range([a1], [a65536].End(3)(2))
For i = 2 To UBound(Arr) - 1
    V = Val(Arr(i, 1)): Arr(i, 1) = ""
    If V = 0 Then GoTo 101 Else N = N + 1
    If Val(Arr(i + 1, 1)) = 0 Then Arr(i, 1) = N: N = 0
101: Next
Arr(1, 1) = "µn¿ý"
[b1].Resize(UBound(Arr) - 1, 1) = Arr
End Sub

samwang

¤£¦n·N«ä¡A§ó·s4#µ{¦¡¦p¤U¬õ¦r¡A¬Ý¤F­ã¤j¸Ñµª²×©ó¤F¸ÑÃD·N¡AÁÂÁÂ
Sub test()
Dim Arr, Brr(), T0%, T%, T1%, s
Arr = Range([a1], [a65536].End(3))
ReDim Brr(1 To UBound(Arr), 1 To 1)
s = 1
For i = 2 To UBound(Arr)
    If i > 2 Then T0 = Arr(i - 1, 1)
    T = Arr(i, 1)
    If i < UBound(Arr) Then
        T1 = Arr(i + 1, 1)
    Else
         If T <> 0 Then Brr(i, 1) = i - s
    End If
    If T = 0 Then
        s = i
    Else
        If T1 = 0 Then: Brr(i, 1) = i - s
    End If
Next
[b1].Resize(UBound(Arr), 1) = Brr
[b1] = "µn¿ý"
End Sub

­ã´£³¡ªL

¤@¯ë:
=IF(OR(A2=0,A3>0),"",COUNTIF(A$1:A2,">0")-SUM(B$1:B1))

°}¦C:
=IF(OR(A2=0,A3>0),"",ROW()-MATCH(2,0/ISERR(0/A$1:A1)))

samwang

¦^´_ 2# hcm19522

A2¼Æ­È¤£¬°0®É¡A·|¦³¤p°ÝÃD¡A½Ð½T»{¡AÁÂÁ¡C

samwang

¦^´_ 1# johnny1680

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Sub test()
Dim Arr, Brr(), T0%, T%, T1%, s
Arr = Range([a1], [a65536].End(3))
ReDim Brr(1 To UBound(Arr), 1 To 1)
For i = 2 To UBound(Arr)
    If i > 2 Then T0 = Arr(i - 1, 1)
    T = Arr(i, 1)
    If i < UBound(Arr) Then
        T1 = Arr(i + 1, 1)
    Else
         If T <> 0 Then Brr(i, 1) = i - s
    End If
    If T = 0 Then
        s = i
    Else
        If T1 = 0 And s <> "" Then: Brr(i, 1) = i - s
    End If
Next
[b1].Resize(UBound(Arr), 1) = Brr
[b1] = "µn¿ý"
End Sub

johnny1680

¦^´_ 2# hcm19522
ÁÂÁ±zªº«ü¾É!

hcm19522

https://blog.xuite.net/hcm19522/twblog/589503335