標題: [發問] 請問兩數列或是兩列字元，如和自動相連並排序？ [打印本頁]

---

作者: bcmc    時間: 2014-7-5 18:59     標題: 請問兩數列或是兩列字元，如和自動相連並排序？

各位前輩好，小弟我在公司負責倉儲與進出貨的管理，
目前在改進公司眾多報表的實用性與方便性，
目前碰到一個問題，以小弟我的能力尚無法解決，
想拜託前輩們幫幫忙，問題如下：

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

如何變成：

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

就是相同的自動相連並且排序，
如果數字改成文字是否也可以呢？
謝謝！

---

作者: sunnyso    時間: 2014-7-5 20:37

資料會重複嗎？

---

作者: dechiuan999    時間: 2014-7-5 21:09

回復 1# bcmc


    您好：

請試試如下
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/通用格式"
            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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)