GBKEE

¦^´_ 3# ÂŤÑÄR¦À
µ{¦¡½X½Æ»s¦b¨º­Ó¤u§@ªí¼Ò²Õ¤W¤@©w¦³¤ÏÀ³ªº.
¦pªG¬O¥ô¤@­Ó¤u§@ªí¼Ò²Õ¤W½Ð¥Î¤U­±ªºµ{¦¡½X.

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim i As Integer, t As Integer
   
4.     i = 1
   
5.     With ActiveSheet   '«ü©w¤u§@ªí: ActiveSheet->§@¥Î¤¤ªº¤u§@ªí
   
6.         Do While .Cells(i, "F") <> ""
   
7.             t = 0
   
8.             Do
   
9.                 t = t + .Cells(i, "e")
   
10.                 i = i + 1
    
11.             Loop Until .Cells(i - 1, "F") <> .Cells(i, "F")
    
12.             .Cells(i - 1, "g") = t
    
13.         Loop
    
14.     End With
    
15. End Sub

½Æ»s¥N½X

ÂŤÑÄR¦À

¦^´_ 2# GBKEE


    G¤j§Ú¦³¥h¸Õ¹L¤F¡A¦ý§¹¥þ¨S¤ÏÀ³£°¡A§Ú±Nµ{¦¡©ñ¦bsheet1¹ï§a?

GBKEE

¦^´_ 1# ÂŤÑÄR¦À
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim i As Integer, t As Integer
   
4.     i = 1
   
5.     Do While Cells(i, "F") <> ""
   
6.         t = 0
   
7.         Do
   
8.             t = t + Cells(i, "e")
   
9.             i = i + 1
   
10.         Loop Until Cells(i - 1, "F") <> Cells(i, "F")
    
11.         Cells(i - 1, "g") = t
    
12.     Loop
    
13. End Sub

½Æ»s¥N½X