GBKEE

¦^´_ 1# ms2001
³o¬OSheet1¤u§@ªíª«¥ó¨Æ¥óªºµ{¦¡½X

1. Private Sub Worksheet_Calculate()
   
2.     Dim i, F
   
3.     i = 1
   
4.     With Sheet2
   
5.         .Range(.Range("A1"), .Range("A1").End(xlDown)).Resize(, 3).Clear
   
6.     End With
   
7.     Do
   
8.         Set F = [C:C].Find(Application.Large([C:C], i), LookIn:=xlValues)
   
9.         If F Is Nothing Then Exit Do
   
10.         If F >= 0.03 Then
    
11.             Sheet2.Range("A1")(i).Resize(, 3).Value = Range(F(1, -1), F).Value
    
12.             i = i + 1
    
13.             If i > [Count(C:C)] Then Exit Do
    
14.         Else
    
15.             Exit Do
    
16.         End If
    
17.     Loop
    
18.     MsgBox "§ó·s§¹²¦"
    
19. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 3# ms2001
¸Õ¸Õ¬Ý
If F >= 0.03 Then
           Range(F(1, -1), F).Copy Sheet2.Range("A1")(i)        
           i = i + 1
            If i > [Count(C:C)] Then Exit Do
        Else
            Exit Do
        End If
End If