排序問題

funnydisk

想請問各位前輩排序的問題，假如有幾個活頁的進貨資料沒有照順序排列，例如
1. 7月進貨
貨號   品名      數量
1001 鉛筆      12
1003 油性筆  10
1002 中性筆  15
...
2. 8月進貨  
貨號   品名      數量
1002 中性筆  20
1003 油性筆  19
1001 鉛筆      6
...
以上二個活頁如何要複製到「2012進貨資料」活頁變成
                          7月      8月
貨號   品名      數量     數量
1001 鉛筆      12         6
1002 中性筆  15         20
1003 油性筆  10         19
...
這段vba要怎麼寫呢，謝謝

Hsieh

回復 1# funnydisk

這樣功能並不難，論壇中關於此類討論亦不在少數
使用Dictionary物件可以輕鬆完成
不過最重要的是工作表名稱如何對應欄位的問題
建議上傳您的檔案了解整體結構

c_c_lai

回復 1# funnydisk
提供你參考：
xlSh    :  要處理的表單名稱
StartRow:  起始位置
EndRow  :  最末位置

    Set sh = Sheets(xlSh)
    With sh.Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("C" & StartRow), SortOn:=xlSortOnValues, _
                                                        Order:=xlAscending         ' 資料由小而大依序排序
        .SetRange Range("A" & StartRow & ":E" & EndRow)
        ' .Header = xlNone
        .Apply
    End With
加油！