12
返回列表 上一主題 發帖

[發問] 改善大筆資料處理

li_hsien

帖子
248 
主題
55 
精華
0 
積分
314 
點名
92  
作業系統
XP / WIN7 
軟體版本
2003 / 2007 
閱讀權限
20 
性別
男 
來自
Tainan 
註冊時間
2013-10-18 
最後登錄
2024-5-8 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇贊助勳章2014馬年全勤獎章2015羊年全勤獎章熱烈參與勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-1-21 10:24 | 顯示全部帖子

[發問] 改善大筆資料處理

請問各位大大

小弟我目前有兩個工作表

依據"產品工作表"(A) 的 ID & PartNumber 比對到 "物料工作表"(B) 的 ID & PartNumber

如果有一樣的，則把A的資料COPY到B裡面

如果沒有相同的，則補到B的最下方


資料量小的時候還可以

但我資料有幾千筆會變好慢好慢 大約要跑10分鐘左右

可能是FOR迴圈的問題

不知有什麼改善方法

麻煩各位大大

以下為附檔

P.S. 比對欄位有刪減，所以附檔的處理速度好像還可以

forum.zip (118.3 KB)
收藏 分享
用功到世界末日那一天∼∼∼

li_hsien

帖子
248 
主題
55 
精華
0 
積分
314 
點名
92  
作業系統
XP / WIN7 
軟體版本
2003 / 2007 
閱讀權限
20 
性別
男 
來自
Tainan 
註冊時間
2013-10-18 
最後登錄
2024-5-8 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇贊助勳章2014馬年全勤獎章2015羊年全勤獎章熱烈參與勳章
2#
發表於 2014-1-21 15:24 | 顯示全部帖子
回復 2# GBKEE

板大我發現了一點問題

我如果在產品那邊刪掉一筆

在物料那並沒有刪除掉

新增加的話還OK


最後板大幫我設置的刪除提示

為什麼刪掉後只剩下4.5筆呀???


我用2007的移除重複，並沒有這麼多重複

不知問題出在哪裡???



麻煩幫我看看

謝謝  :  )
用功到世界末日那一天∼∼∼

TOP

li_hsien

帖子
248 
主題
55 
精華
0 
積分
314 
點名
92  
作業系統
XP / WIN7 
軟體版本
2003 / 2007 
閱讀權限
20 
性別
男 
來自
Tainan 
註冊時間
2013-10-18 
最後登錄
2024-5-8 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇贊助勳章2014馬年全勤獎章2015羊年全勤獎章熱烈參與勳章
3#
發表於 2014-1-21 17:48 | 顯示全部帖子
回復 2# GBKEE

謝謝大大的幫忙

可是我發現還是沒有刪除掉耶

產品沒有的，物料那邊還是有出現

我是在產品中間隨便刪一筆測試的


那大大的重複提示

我用2007內建的移除重複測試

發現還是多刪了，可是筆數不多

我要留有重複的第一筆
EX:
A,B,C,A,A,B,C,D
我要留A,B,C,D

不知大大是不是把重複的都刪了


麻煩幫我看看  感謝  :  )
用功到世界末日那一天∼∼∼

TOP

li_hsien

帖子
248 
主題
55 
精華
0 
積分
314 
點名
92  
作業系統
XP / WIN7 
軟體版本
2003 / 2007 
閱讀權限
20 
性別
男 
來自
Tainan 
註冊時間
2013-10-18 
最後登錄
2024-5-8 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇贊助勳章2014馬年全勤獎章2015羊年全勤獎章熱烈參與勳章
4#
發表於 2014-1-21 21:24 | 顯示全部帖子
回復 2# GBKEE

版大我又出現了@@

我試了一試還是怪怪的耶

產品如果在資料中有新增

好像抓不到物料那邊

會怪怪的

還是只能在最下面新增


如果我在產品的資料中刪除一筆

物料那邊還是會出現@@

本身有2007的關係
我驗證資料重複應該剩下1026筆
物料那邊OK 不過產品那邊還是不一致


又再次麻煩大大了

謝謝你  :  )
用功到世界末日那一天∼∼∼

TOP

li_hsien

帖子
248 
主題
55 
精華
0 
積分
314 
點名
92  
作業系統
XP / WIN7 
軟體版本
2003 / 2007 
閱讀權限
20 
性別
男 
來自
Tainan 
註冊時間
2013-10-18 
最後登錄
2024-5-8 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇贊助勳章2014馬年全勤獎章2015羊年全勤獎章熱烈參與勳章
5#
發表於 2014-1-22 11:00 | 顯示全部帖子
回復 6# GBKEE

我都是直接再次COPY過去

剛剛再次確認

新增應該OK

不過好像都是要按下MSGBOX確認後才可以


可是移除後數量不對

附檔還有兩張圖

一張是原有資料

另一張是用了移除重複後的資料

煩請大大幫我看看


forum.zip (256.48 KB)
用功到世界末日那一天∼∼∼

TOP

li_hsien

帖子
248 
主題
55 
精華
0 
積分
314 
點名
92  
作業系統
XP / WIN7 
軟體版本
2003 / 2007 
閱讀權限
20 
性別
男 
來自
Tainan 
註冊時間
2013-10-18 
最後登錄
2024-5-8 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇贊助勳章2014馬年全勤獎章2015羊年全勤獎章熱烈參與勳章
6#
發表於 2014-1-22 14:09 | 顯示全部帖子
回復 8# GBKEE

板大我再測試了一下

在物料或是產品的工作表執行應該都沒有差別吧


我不太懂第一次刪除重複的動作

因為附檔的資料一開始在"產品"那邊有1801項，"物料"那邊有1206項

我先用移除重複篩一次"產品"那邊的項目，只剩下1206項

可是我用了程式跑只剩下1196項

應該是多刪了板大圖示的部分



我的處理流程是先依據"產品"裡的來產出"物料"裡面的

動作 是如果 (都是以ID & PART NUMBER為依據)
"產品"有 "物料"有  則把 "產品" 的資料COPY到 "物料" 原本的位子上
"產品"有 "物料"沒有 則把新增多出來的增加到 "物料" 最下面
"產品"沒有 "物料"有 則把"物料"整欄刪除掉

所以是以"產品"擁有的為主，不過產出"物料"之前得先刪除"產品"重複的部分

最後結果是"產品"跟"物料"的項目數會是一樣的沒有錯


不過就在一開始的移除有些問題

做過第一次動作後，我再測試刪刪減減這些動作，都很順利沒有問題   :  )



有點冗長@@

煩請板大看看

謝謝
用功到世界末日那一天∼∼∼

TOP

li_hsien

帖子
248 
主題
55 
精華
0 
積分
314 
點名
92  
作業系統
XP / WIN7 
軟體版本
2003 / 2007 
閱讀權限
20 
性別
男 
來自
Tainan 
註冊時間
2013-10-18 
最後登錄
2024-5-8 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇贊助勳章2014馬年全勤獎章2015羊年全勤獎章熱烈參與勳章
7#
發表於 2014-1-22 15:21 | 顯示全部帖子
回復 10# GBKEE


這些是我重複的
$1806:$1810,$1800:$1802,$1798:$1798,$1794:$1795,$1791:$1792,$1788:$1789,$1785:$1785,$1772:$1772,$1764:$1764,$1754:$1758,$1748:$1750,$1743:$1743,$1739:$1740,$1736:$1737,$1733:$1734,$1730:$1730,$1718:$1718,$1710:$1710,$1698:$1701,$1691:$1691,$1688:$1689


如有重複我只要刪除重複的部分
留唯一

還是板大的程式把重複的全刪了???

我也不確定是不是

麻煩大大幫我看看

謝謝你
用功到世界末日那一天∼∼∼

TOP

li_hsien

帖子
248 
主題
55 
精華
0 
積分
314 
點名
92  
作業系統
XP / WIN7 
軟體版本
2003 / 2007 
閱讀權限
20 
性別
男 
來自
Tainan 
註冊時間
2013-10-18 
最後登錄
2024-5-8 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇贊助勳章2014馬年全勤獎章2015羊年全勤獎章熱烈參與勳章
8#
發表於 2014-1-22 17:05 | 顯示全部帖子
回復 12# Hsieh


謝謝H板大的解答

不過測試了一下

我發現如果我在"產品"那邊刪除一筆，再次執行

"物料"那並不會刪除耶

好像還是有點問題

麻煩板大幫我看看

謝謝:  )
用功到世界末日那一天∼∼∼

TOP

li_hsien

帖子
248 
主題
55 
精華
0 
積分
314 
點名
92  
作業系統
XP / WIN7 
軟體版本
2003 / 2007 
閱讀權限
20 
性別
男 
來自
Tainan 
註冊時間
2013-10-18 
最後登錄
2024-5-8 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇贊助勳章2014馬年全勤獎章2015羊年全勤獎章熱烈參與勳章
9#
發表於 2014-1-22 18:13 | 顯示全部帖子
回復 10# GBKEE

GB板大，如果我不做重複的處理

直接做"產品"跟"物料"的新增刪除修改

改成以下方式可行嗎???

模式一樣是以"產品"為主
如果
"產品"有   "物料"有  則把"產品"  放到  "物料" 原有的位置
"產品"無   "物料"有  則把"物料" 那筆整欄刪掉
"產品"有   "物料"無  則把新增出來的那筆"產品"資訊 新增到"物料"的最下方


但我測試幾次，如果在"產品"的表單中加入一筆新的

可能無法在"物料"中顯示

在最下端增加好像才不會出錯


麻煩板大幫我看看程式還需做怎樣的修改

謝謝你  :  )
  1. Sub Ex2()
  2.     Dim d As New Collection, AR(1 To 7), i As Integer, Rng As Range, E As Variant
  3.     On Error Resume Next              'Collection新增的KEY如被使用或有錯誤
  4.     With Worksheets("產品管控清單")
  5.         For i = 2 To .Range("J1").End(xlDown).Row
  6.             AR(1) = .Range("E" & i)             'PRODUCT ID(A)
  7.             AR(2) = .Range("F" & i)             'CHILDPARTNUMBER(B)
  8.             AR(3) = .Range("C" & i)             'MP date(G)
  9.             AR(4) = .Range("A" & i)             '週別(H)
  10.             AR(5) = .Range("B" & i)             '更新週別(I)
  11.             AR(6) = DateDiff("d", Date, AR(3))  '工作日(M)
  12.             AR(7) = .Range("J" & i)             'Product ID & PartNumber(F)
  13.             d.Add AR, .Range("J" & i).Value
  14.         Next
  15.     End With
  16.     With Worksheets("物料管控清單")
  17.         For Each E In .Range("F:F").SpecialCells(xlCellTypeConstants).Offset(1)
  18.             .Range("A" & E.Row) = d(E.Value)(1)
  19.             .Range("B" & E.Row) = d(E.Value)(2)
  20.             .Range("G" & E.Row) = d(E.Value)(3)
  21.             .Range("H" & E.Row) = d(E.Value)(4)
  22.             .Range("I" & E.Row) = d(E.Value)(5)
  23.             .Range("M" & E.Row) = d(E.Value)(6)
  24.             .Range("F" & E.Row) = d(E.Value)(7)
  25.             If Err = 0 Then                     '物料的ID & PartNumber,存在產品的ID & PartNumber中
  26.                 d.Remove E.Value                '除去:產品的ID & PartNumber

  28.             ElseIf Err <> 0 And E <> "" Then    '物料的ID & PartNumber,不存在產品的ID & PartNumber中
  29.                 If Rng Is Nothing Then       '取的儲存格的位置
  30.                     Set Rng = E
  31.                 Else
  32.                     [color=Red]Set Rng = Union(E, Rng)[/color]
  33.                     [color=Red]Rng.EntireRow.Delete[/color]
  34.                 End If
  35.             End If
  36.             Err.Clear
  37.         Next
  38.         If d.Count > 0 Then                     '補上:物料沒有的產品ID & PartNumber
  39.             i = 0
  40.             With .Range("A1").End(xlDown)
  41.                 For Each E In d
  42.                     i = i + 1
  43.                     .Offset(i).Range("A1") = E(1)
  44.                     .Offset(i).Range("B1") = E(2)
  45.                     .Offset(i).Range("G1") = E(3)
  46.                     .Offset(i).Range("H1") = E(4)
  47.                     .Offset(i).Range("I1") = E(5)
  48.                     .Offset(i).Range("M1") = E(6)
  49.                     .Offset(i).Range("F1") = E(7)
  50.                 Next
  51.             End With
  52.         End If
  53.     End With
複製代碼
用功到世界末日那一天∼∼∼

TOP

li_hsien

帖子
248 
主題
55 
精華
0 
積分
314 
點名
92  
作業系統
XP / WIN7 
軟體版本
2003 / 2007 
閱讀權限
20 
性別
男 
來自
Tainan 
註冊時間
2013-10-18 
最後登錄
2024-5-8 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇贊助勳章2014馬年全勤獎章2015羊年全勤獎章熱烈參與勳章
10#
發表於 2014-1-22 22:53 | 顯示全部帖子
回復 15# Hsieh

"產品"那邊的工作表還是需要保留著

因為"產品"跟"物料"的資訊不太一樣

欄位也不盡相同

但有些部分一樣

那它主要對應的方式都是依據ID & PAERTNUMBER


對了!!!
其實跟之前H版大幫我處理的<兩工作表比對 新增修改>這篇是一樣的

只是我後來應該方便作業所以多產生了一個ID & PAERTNUMBER來比對

不需要好幾欄&起來比對


不過因為我用FOR再跑

所以資料量好大

想尋求快速的比對方式


麻煩各位大大們   謝謝  :   )
用功到世界末日那一天∼∼∼

TOP

        靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。
12
返回列表 上一主題