[µo°Ý] ½Ð°Ý¨â¼Æ¦C©Î¬O¨â¦C¦r¤¸¡A¦p©M¦Û°Ê¬Û³s¨Ã±Æ§Ç¡H

bcmc

¦U¦ì«e½ú¦n¡A¤p§Ì§Ú¦b¤½¥q­t³d­ÜÀx»P¶i¥X³fªººÞ²z¡A
¥Ø«e¦b§ï¶i¤½¥q²³¦h³øªíªº¹ê¥Î©Ê»P¤è«K©Ê¡A
¥Ø«e¸I¨ì¤@­Ó°ÝÃD¡A¥H¤p§Ì§Úªº¯à¤O©|µLªk¸Ñ¨M¡A
·Q«ô°U«e½ú­ÌÀ°À°¦£¡A°ÝÃD¦p¤U¡G

A            B
93          23
82          55
39          39
79          93
55
23
11

¦p¦óÅܦ¨¡G

A           B
11         
23         23
39         39
55         55
79         
82           
93         93

´N¬O¬Û¦Pªº¦Û°Ê¬Û³s¨Ã¥B±Æ§Ç¡A
¦pªG¼Æ¦r§ï¦¨¤å¦r¬O§_¤]¥i¥H©O¡H
ÁÂÁ¡I

dechiuan999

¦^´_ 1# bcmc


    ±z¦n¡G

½Ð¸Õ¸Õ¦p¤U
Sub aa()
   
    Dim mSht As Worksheet
    Dim rng As Range, mRng As Range, mRng1 As Range
    Dim mData
    Dim s%
    Set mSht = Worksheets(1)
    With mSht
        Set mRng = .Range("a2", .Range("a" & .Rows.Count).End(xlUp))
        For Each rng In mRng
            rng.NumberFormatLocal = "G/³q¥Î®æ¦¡"
            rng.Value = CInt(rng.Value)
        Next
        mRng.Sort key1:=.Range("a2"), order1:=xlDescending
        mData = .Range("b2", .Range("b" & .Rows.Count).End(xlUp))
        .Range("b2", .Range("b" & .Rows.Count).End(xlUp)).Clear
        For s = LBound(mData) To UBound(mData)
            MsgBox mData(s, 1)
            Set mRng1 = .Columns("a").Find(what:=CInt(mData(s, 1)), LookIn:=xlValues)
            If Not mRng1 Is Nothing Then
                mRng1.Offset(, 1).Value = mData(s, 1)
            End If
        Next
        
    End With
End Sub

sunnyso

¸ê®Æ·|­«½Æ¶Ü¡H