c_c_lai

¦^´_ 4# gelai01000001

1. Sub test()
   
2.     For i = 1 To 5           
   
3.         '  §PÂ_¾ú¥v³Ì¤j­È¬O§_¤j©ó¥Ø«e­È¡A¨Ã¥H³Ì¤j­È§ó·s¾ú¥v³Ì¤j­È
   
4.         If Not IsError(Sheet1.Cells(i, 2)) Then
   
5.              If Sheet1.Cells(i, 3) < Sheet1.Cells(i, 2).Value Then _
   
6.                  Sheet1.Cells(i, 3) = Sheet1.Cells(i, 2).Value
   
7.         End If
   
8.     Next
   
9. End Sub

½Æ»s¥N½X