ÂŤÑÄR¦À

¦^´_ 9# GBKEE


    G¤j·PÁÂ

ui123

·PÁ   «e½ú´£¨Ñ~¬Ý¹L¨ü¯q¨}¦h!!!

Andy2483

ÁÂÁ½׾Â,ÁÂÁ¦U¦ì«e½ú
«á¾ÇÂǦ¹©«½m²ß°}¦C,¾Ç²ß¤è®×¦p¤U,½Ð¦U¦ì«e½ú«ü±Ð
°õ¦æ«e:

¤U¸ü (113.83 KB)

2024-1-12 14:21

°õ¦æµ²ªG:

¤U¸ü (112.73 KB)

2024-1-12 14:22

Option Explicit
Sub TEST()
Dim Brr, V%, V1%, V2%, i&, N&
Brr = Range([E1], Cells(Rows.Count, "E").End(3)(2))
N = UBound(Brr) - 1
For i = 2 To N
   V1 = Val(Brr(i, 1))
   V2 = Val(Brr(i + 1, 1))
   Brr(i - 1, 1) = ""
   V = V + V1
   If V1 * V2 > 0 Then GoTo i01
   Brr(i - 1, 1) = V: V = 0
i01: Next
[H2].Resize(N - 1, 1) = Brr
End Sub