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

[µo°Ý] ²Î­p¶µ§t¦³¤å¦r

[µo°Ý] ²Î­p¶µ§t¦³¤å¦r

²Î­p¶µ§t¦³¤å¦r.rar (3.05 KB)
·Q±NB6¡GAE6ªºµª®×Åã¥Ü¥X"¸É³f¤¤"¡F¦p¦PB8¡GAE8¤@¼Ë¡C
½Ð°Ý¡GB6ªºExcel 2003¤½¦¡­n¦p¦ó­×§ï¡H
ÁÂÁ¦U¦ì !

¦^´_ 1# johnny1680

½Ð°ÝªÅ¥Õ µ¥ 0 ¶Ü?

TOP

¦^´_ 2# samwang
ªÅ¥Õ´N¬OªÅ¥Õ¡A¤£Åã¥Ü0¡C
ÁÂÁÂ!

TOP

¦^´_ 1# johnny1680

¥u­n¦C1¡B2ªº¸ê®Æ·s¼W/Åܧó¡A¦C11¡B12«~¶µ/¼Æ¶qºÊ±±´N·|§Y®É§ó·s¡A½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

²Î­p¶µ§t¦³¤å¦r_1007.zip (18 KB)

TOP

¦^´_ 4# samwang
§ÚµLÅv¤U¸üÀɮסC
ÁÂÁÂ!

TOP

¦^´_ 5# johnny1680

¤@¯ë¼Ò²Õ:
Sub §ó·s()
Dim Arr, xD, a, a2, n%
Arr = Range([b2], Cells(1, Columns.Count).End(1))
For j = 1 To UBound(Arr, 2)
    If Arr(2, j) = "" Then Arr(2, j) = "¸ê®ÆµL"
Next
For j = 1 To UBound(Arr, 2)
    For j2 = j + 1 To UBound(Arr, 2)
        If Arr(2, j) > Arr(2, j2) Then
            n = n + 1: a = Arr(1, j): a2 = Arr(2, j)
            Arr(1, j) = Arr(1, j2): Arr(1, j2) = a
            Arr(2, j) = Arr(2, j2): Arr(2, j2) = a2
        End If
    Next
Next
Range([b12], Cells(11, Columns.Count).End(1)).ClearContents
Range("b11").Resize(2, UBound(Arr, 2)) = Arr
End Sub

¤u§@ªí1
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
    If .Row = 1 Or .Row = 2 Then Call §ó·s
End With
End Sub
1.PNG

TOP

¦^´_ 6# samwang
¤£·|µ{¦¡¡C
¦ýÁÙ¬OÁÂÁ±z^^

¯à«ü¾É¤½¦¡¶Ü?
ÁÂÁÂ!

TOP

¥»©«³Ì«á¥Ñ hcm19522 ©ó 2021-10-7 14:48 ½s¿è

B5 ¥k©Ô ¤U©Ô {=IFERROR(INDEX(1:1,RIGHT(SMALL(IF($B$2:$AE$2<>"",IF($B$2:$AE$2="¸É³f¤¤",99,$B$2:$AE$2)/1%+COLUMN($B:$AE)),COLUMN(A1)),2)),"")

https://blog.xuite.net/hcm19522/twblog/590063989
ÀH·NºÛ "EXCEL°g"  blog  ©Îhttps://hcm19522.blogspot.com/ EXCEL¨ç¼Æ

TOP

¦^´_ 8# hcm19522
®æ¦¡¤£¹ï
IFERROR¤½¦¡§Ú¤£·|§ï^^"

TOP

¥»©«³Ì«á¥Ñ johnny1680 ©ó 2021-10-7 17:50 ½s¿è

B6
=IF(ISERROR(SMALL(IF($B2:$AE2>0,$B2:$AE2),COLUMN(A1))),"",IF(ISERROR(SMALL(IF($B2:$AE2="",$B2:$AE2),COLUMN(A1))),"¸É³f¤¤",SMALL(IF($B2:$AE2>0,$B2:$AE2),COLUMN(A1))))
¥u¯àÅã¥Ü4­Ó¼Æ¦r   1,2,3,5  ©M  4­Ó"¸É³f¤¤"

½Ð°Ý : B6ªº¤½¦¡­n¦p¦ó­×¥¿?
¤~Åã¥Ü¥X¥¿½Tµª®×(¦pB8:AE8)¡C
ÁÂÁÂ !

TOP

        ÀR«ä¦Û¦b : ¯à·F¤£·F¡A¤£¦p­W·F¹ê·F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD