返回列表 上一主題 發帖

[發問] Excel2003 remove duplicates相容性問題

本帖最後由 准提部林 於 2018-9-10 13:18 編輯

回復 7# sunshine010

1) 去重覆, 應該只針對B欄的[時間]處理, 若逐欄處理, 那最後的資料也不正確
2) VBA以[公式重算]觸發, 同時間記錄的資料一定會重覆很多筆, 這是Worksheet_Calculate的弊病
3) 刪除重覆同時又觸發程式, 也會造成不可預料的錯誤

根本解決方法:
設一暫存列, 存放上一筆記錄的內容, 再用一個公式判斷資料是否有變動,
若無變動, 即使公式重算也不記錄, 這樣根本不須再去執行刪除重覆

這DDE非我所長, 幫不上忙~~
EXCEL參考資料:
http://blog.xuite.net/smile1000mile/blog

TOP

基本架構:
1) AH1 放資料變動檢測公式, 若有變動, 則加一筆新記錄,     
    例外:B2:AG2有[錯誤值]時, 或 B2 非數值(沒有時間值), 則不記錄~~
2) 在B3:AG3同時存放這筆記錄, 供下次比對是否變動
3) A3累計筆數, 同時記錄到MAIN表相對應儲存格

這麼多表同時觸發程式, 會不會打架.產生錯誤.或漏記錄, 不得而知,
自行去測, 並依實際運用去自行修改公式或程式, 能幫的就這樣:
DDE_main_01.rar (40.1 KB)
EXCEL參考資料:
http://blog.xuite.net/smile1000mile/blog

TOP

Sheets(1).Cells(Me.Index + 1, 2) = [A3]
改成以下才對:
Sheets(1).Cells(Me.Index, 2) = [A3]
EXCEL參考資料:
http://blog.xuite.net/smile1000mile/blog

TOP

        靜思自在 : 道德是提昇自我的明燈,不該是呵斥別人的鞭子。
返回列表 上一主題