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