ikboy

¦^´_ 1# smart3135

=INDIRECT("R1" & "C" & MATCH(MAX(A2:E2),A2:E2,0),0)

ikboy

Macro

1. Sub test()
   
2.     Dim arr, n%, m%, a()
   
3.     er = [A65536].End(3).Row
   
4.     arr = [a1].Resize(er, 5).Value
   
5.     ReDim a(1 To er, 1 To 1)
   
6.     For i = 2 To er
   
7.         n = arr(i, 1): m = 1
   
8.         For j = 2 To 5
   
9.             If arr(i, j) > n Then n = arr(i, j): m = j
   
10.         Next
    
11.         a(i, 1) = arr(1, m)
    
12.     Next
    
13.     [i1].Resize(er) = a
    
14. End Sub

½Æ»s¥N½X

1. Sub newdata()
   
2.     Dim ar
   
3.     er = [A65536].End(3).Row
   
4.     ReDim ar(1 To er, 1 To 5)
   
5.     [a2].Resize(er, 9).ClearContents
   
6.     For i = 1 To er
   
7.         For j = 1 To 5
   
8.             ar(i, j) = Int(Rnd * 1000) + 1
   
9.         Next
   
10.     Next
    
11.     [a2].Resize(er, 5) = ar
    
12. End Sub

½Æ»s¥N½X