- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 62
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2025-3-13
               
|
本帖最後由 Hsieh 於 2014-1-22 16:43 編輯
回復 1# li_hsien - Sub ex()
- Dim Ar
- Set d = CreateObject("Scripting.Dictionary")
- With Sheets("產品管控清單")
- Ar = .UsedRange.Value
- For i = 2 To UBound(Ar, 1) '記錄產品不重覆記錄
- d(Ar(i, 10)) = Array(Ar(i, 5), Ar(i, 6), Ar(i, 7), Ar(i, 8), Ar(i, 9), Ar(i, 10), Ar(i, 3), Ar(i, 1), Ar(i, 2))
- Next
- End With
- With Sheets("物料管控清單")
- Ar = .UsedRange.Value
- For i = 2 To UBound(Ar, 1)
- If d.exists(Ar(i, 6)) Then
- .Cells(i, 1).Resize(, 9) = d(Ar(i, 6)) '產品出現在物料則更新為產品資料
- d.Remove Ar(i, 6) '移除已寫入的資料
- End If
- Next
- '若產品未出現於物料，則新增至物料資料尾
- If d.Count > 0 Then .Cells(.Rows.Count, 1).End(xlUp).Offset(1).Resize(d.Count, 9) = Application.Transpose(Application.Transpose(d.items))
- End With
- End Sub
 forum01.22.zip (126.27 KB)
|
|
發表於 2014-1-22 16:40
| 