[µo°Ý] ¦p¦ó¥ÎVBA§ä¥X¹ïÀ³Ä檺­È¡H

smart3135

·Q½Ð±Ð¤@¤U¡A¦pªí®æ¡A§Ú·Q­n¦bA2¨ìE2³o­Ó½d³ò¤¤§ä¥X³Ì¤j­È¹ïÀ³­º¦Cªº¤å¦r

A3¨ìE3§ä¥X³Ì¤j­È¹ïÀ³­º¦Cªº¤å¦r¡A¥H¦¹Ãþ±À

¨Ò¦p¡GA2¨ìE2³Ì¤j­È¬°5¡A¨º¹ïÀ³ªº´N¬O¾÷¾¹5

A3¨ìE3³Ì¤j­È¬°55¡A¨º¹ïÀ³ªº´N¬O¾÷¾¹1

A4¨ìE4³Ì¤j­È¬°555¡A¨º¹ïÀ³ªº´N¬O¾÷¾¹3

µM«á§â¹ïÀ³ªºµ²ªG¦bIÄæÅã¥Ü¡A½Ð±Ð¤@¤UVBAÀ³¸Ó«ç»ò¼g©O¡H

¤U¸ü (49.19 KB)

2017-8-8 18:43

­ã´£³¡ªL

¥Î¤½¦¡¥i¥H¶Ü?

¦³°ÝÃD, ³Ì¦n¤W¶ÇÀÉ®×~~~

Kubi

¦^´_ 1# smart3135
½Ð°Ñ¦Ò
¥ÎVBA§ä¥X¹ïÀ³Äæ.rar (43.03 KB)

¤U¸ü¦¸¼Æ: 8

2017-8-9 10:51

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

smart3135

¦^´_  smart3135
½Ð°Ñ¦Ò
Kubi µoªí©ó 2017-8-9 10:51

·PÁ¤j¤jªºÀ°¦£¡A§¹¥þ²Å¦X§Ú·Q­nªºµ²ªG¡A¤£¦n·N«ä¡A§Ñ¤F©ñÀɮפW¨Ó¤F

·Q¦A½Ð±Ð¥t¤@­Ó°ÝÃD¡AAÄ榳50©M100¨âºØ¼Æ¦r¡ABÄæ«h¬O­^¤å¦r

­Y§Ú·Q·íAÄæ©MBÄæ¦P®É­«ÂЪº­È³£¤@°_²M°£¤º®e¡A¤S¸Ó«ç»ò¼gµ{¦¡½X©O¡H

¨Ò¦pA1+B1©MA3+B3¨â­Ó§¹¥þ¬Û¦P¡A´N²M°£¨ä¤¤¤@­Óªº­È(²M°£A1+B1©ÎA3+B3)

A8+B8©MA9+B9¨â­Ó§¹¥þ¬Û¦P¡A´N²M°£¨ä¤¤¤@­Óªº­È(²M°£A8+B8©ÎA9+B9)¡A¥H¦¹Ãþ±À

§Ú¦³¸ÕµÛ¥ÎFor next¦P®É°õ¦æÂù°j°é¥h¼g¡A¦ýÁ`¬O¼g¤£¥X§Ú­nªºµ²ªG¡AÀµ½Ð¦A¦¸À°¦£

    test.zip (6.17 KB)

¤U¸ü¦¸¼Æ: 2

2017-8-9 19:14

Kubi

¦^´_ 6# smart3135
½Ð°Ñ¦Ò
§R°£­«½Æ.rar (19.63 KB)

¤U¸ü¦¸¼Æ: 7

2017-8-10 15:12