ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

½Ð°Ýª©¤W¤j¤j¡A³o­Ó­n«ç»ò¼gVBA

¦^´_ 9# GBKEE


    G¤j·PÁÂ

TOP

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

TOP

¥»©«³Ì«á¥Ñ Andy2483 ©ó 2024-1-12 14:25 ½s¿è

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


°õ¦æµ²ªG:


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
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

        ÀR«ä¦Û¦b : ¡i¦æµ½­n¤Î®É¡j¦æµ½­n¤Î®É¡A¥\¼w­n«ùÄò¡C¦p¿N¶}¤ô¤@¯ë¡A¥¼¿N¶}¤§«e¤d¸U¤£­n°±º¶¤õ­Ô¡A§_«h­«¨Ó´N¤Ó¶O¨Æ¤F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD