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

eric7765

½Ð±Ð«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)

¤U¸ü¦¸¼Æ: 5

2024-1-28 14:20

¤U¸ü (49.55 KB)
5

2024-1-28 14:19

hcm19522

(¿é¤J½s¸¹12351) googleºô§}:https://draft.blogger.com/blog/posts/9094075214774179359

eric7765

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

­ã´£³¡ªL

°}¦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©Ô

eric7765

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

Andy2483

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

¤U¸ü (66.75 KB)

2024-1-29 15:33

°õ¦æµ²ªG:

¤U¸ü (70.97 KB)

2024-1-29 15:34

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

­ã´£³¡ªL

¦^´_ 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))