GBKEE

¦^´_ 3# acdx
¬O³o¼Ë¶Ü?

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Rng As Range, AR(), i As Integer, xTop(1 To 3)
   
4.     Set Rng = Range("a15").CurrentRegion.Rows  '°T¸¹¦ì¸m
   
5. 
   
6.     ReDim Preserve AR(1 To Rng.Count)
   
7.     For i = 1 To Rng.Count
   
8.         AR(i) = Application.Max(Rng.Rows(i))
   
9.     Next
   
10.     For i = 1 To 3
    
11.         xTop(i) = Application.WorksheetFunction.Large(AR, i)
    
12.     Next
    
13. End Sub

½Æ»s¥N½X