ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

­«½Æ­È±Æ§Ç°ÝÃD

­«½Æ­È±Æ§Ç°ÝÃD

½Ð±Ð«e½ú­Ì
§Ú·Q±Æ¦C«e¤­¤j¹ïÀ³ªº½s¸¹ ½Ð°Ý¦³¬Æ»ò¤½¦¡¯à¸Ñ¨M¹J¨ì­«½Æªº°ÝÃD
¦p¹Ï ±q¥ªÃä¶}©lºâªº¤½¦¡ ¦p¦ó¦bD10:H10Åã¥Ü
         ±q¥kÃä¶}©lºâªº¤½¦¡ ¦p¦ó¦bD11:H11Åã¥Ü
³Â·Ð¦U¦ì¤F
­«½Æ±Æ§Ç.rar (7.67 KB)

¦^´_ 5# eric7765


°}¦C¤½¦¡//
¥ª±Æ
=INDEX($B$4:$L$4,MOD(-LARGE($B$3:$L$3/1%%-COLUMN($A:$K),COLUMN(A$1)),100))

¥k±Æ
=INDEX($B$4:$L$4,MOD(LARGE($B$3:$L$3/1%%+COLUMN($A:$K),COLUMN(A$1)),100))

TOP

ÁÂÁ½׾Â,ÁÂÁ¦U¦ì«e½ú
«á¾ÇÂǦ¹©«½m²ß°}¦C.¦r¨å.Large().Small(),¾Ç²ß¤è®×¦p¤U,½Ð¦U¦ì«e½ú«ü±Ð
°õ¦æ«e:


°õ¦æµ²ªG:


Option Explicit
Sub TEST()
Dim Brr, Z, j%
Set Z = CreateObject("Scripting.Dictionary")
Brr = Range([B3], Cells(4, Columns.Count).End(xlToLeft))
For j = 1 To UBound(Brr, 2)
   Z(Val(Brr(1, j)) - 10 ^ -3 * j) = Brr(2, j)
   Z(-Val(Brr(1, j)) - 10 ^ -3 * j) = Brr(2, j)
Next
For j = 1 To UBound(Brr, 2)
   Brr(1, j) = Z(Application.Large(Z.Keys, j))
   Brr(2, j) = Z(Application.Small(Z.Keys, j))
Next
[D13].Resize(2, UBound(Brr, 2)) = Brr
End Sub
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 4# ­ã´£³¡ªL
ÁÂÁ­ã¤j
¥i¥H¥t¥~¸ò±z½Ð±Ð °²³] §Ú³æ¯Â»Ý­n±q¥ª¶}©l±Æ¦C ¸ò ³æ¯Â±q¥k¶}©l±Æ¦Cªº¸Ü ¤½¦¡À³¸Ó¦p¦ó­×§ï ÁÂÁ±z

TOP

°}¦C¤½¦¡(¤TÁä¿é¤J)//
=INDEX($B$4:$L$4,ABS(MOD(LARGE($B$3:$L$3/1%%+COLUMN($A:$K)*-1^MOD(ROW(A1),2),COLUMN(A$1)),100*-1^MOD(ROW(A1),2))))

¥k©Ô/¤U©Ô

TOP

¥»©«³Ì«á¥Ñ eric7765 ©ó 2024-1-29 11:53 ½s¿è

[attach]37364[/attach]¦^´_
·PÁ ½Ð°Ý³o¬O­n¥Î°}¦Cªº¤è¦¡¶Ü

TOP

(¿é¤J½s¸¹12351) googleºô§}:https://draft.blogger.com/blog/posts/9094075214774179359
google"EXCEL°g"  blog  ©Îgoogleºô§}:https://hcm19522.blogspot.com/

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¨S¦³©Ò¦³Åv¡A¥u¦³¥Í©Rªº¨Ï¥ÎÅv¡C
ªð¦^¦Cªí ¤W¤@¥DÃD