GBKEE

回復 2# ccj
是這樣嗎? 試試看

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim A(1 To 2) As Integer, i As Integer
   
4.     i = 3
   
5.     Do While Cells(i, "A") <> ""
   
6.         If Cells(i, "c") > Cells(i - 1, "c") And A(1) < 1 Then
   
7.             Cells(i, "d") = Cells(i, "b")
   
8.             A(1) = A(1) + 1
   
9.             A(2) = 0
   
10.         ElseIf Cells(i, "c") < Cells(i - 1, "c") And A(2) < 1 Then
    
11.             Cells(i, "e") = Cells(i, "b")
    
12.             A(2) = A(2) + 1
    
13.             A(1) = 0
    
14.         End If
    
15.         i = i + 1
    
16.     Loop
    
17. End Sub

複製代碼