[發問] 檢查重複性質的資料

jackyliu

檢查重複性質的資料
大大: 可否幫忙解惑一下,VBA 寫法,
1. 將Sheet1 的資料,複製到Sheet2 的 A1 位置開始,依序寫入.
2. 重複性的資料,不要再重複複製到Sheet2
3. 比較不可重複欄位:姓名,地區,性別,婚姻
以上感恩 ~

mhl9mhl9

檢視重複資料.rar (12.85 KB)

下載次數: 13

2013-8-10 01:24

試試excel+sql,我把篩選出來的資料覆蓋在原database上,但你可以選擇你要輸出結果的位置,下面是輸出到sheet2.range("a10")
Set iAddress = Sheets("sheet2").Range("A10")

kuoliang123

是用進階篩選隱藏的嗎?

tofu45

謝謝大大無私的分享！實用

c_c_lai

回復 36# GBKEE
回復 32# stillfish00
回復 37# jackyliu
經仔細推敲 stillfish00 32# 的經驗建議，的確是問題發生的癥結所在，
茲將它稍稍整理，並回溫 Debug 的過程，確實如 stillfish00 所言，
在此順便也謝謝 stillfish00 的不吝指教。

1. 如要逐步執行 (F8) 的話，請把 D(E) 的監看式拿掉吧。 亦即將監看式視窗內的運算式 D(E) 移除。
   
2. 1.  當字典用不存在的 Key 取回物件時會自動新增該 Key，這點在偵錯時看起來還是有效的....
   
3.     你可以自己試試中斷後在即時運算視窗打 ?D("不存在的Key")，就會自動在 D 底下新增一個 item ..
   
4. 2.  然後當你要逐步執行時，因為監看式視窗有設 D(E) 的運算式，則每一步執行時都會取回 D(E)，
   
5.     可是 E 一直都是存在的 Key 值嗎 ???
   
6.     答案當然不是，當你程式執行到 For Each E 前一行或 Next 後一行，此時 E 如果為 "無"，
   
7.     於是它找不到這個 Key 又自動新增了，所以才會造成字典內的 Key(#) 也為 "無" 的原因。
   
8. 3.  偵錯時若只用 "區域變數視窗" 來監看 D 值 (我原本也是這樣)，
   
9.     怎樣都不會遇到此 "型態不符" 的問題。 ( 在 D(E) 值若為 "無" 時的情況下 )

複製代碼

謝謝大家的經驗傳承！

jackyliu

回復 36# GBKEE


    28樓程式碼我是逐一執行,到圖mark黃色部分出現錯誤,
若一次執行完畢,是正常的;猜想是我用監看視窗的方式錯誤?

整個程式碼,我看不懂,不好意思,再麻煩大家......
只好自己認真逐一監看,程式的內容變化,
可能就像樓上(#32)說的 D(E),監看要拿掉,
可我真的不知道,要從哪裡才能弄懂這程式碼 ? ? ?
對不起大大,我還是附上一張,我監看出錯誤的畫面,
向大家交代清楚....

GBKEE

回復 35# jackyliu
誤操作....  請說明一下,好了解狀況

jackyliu

回復 33# GBKEE

28#    程式code 可以了, 可能是我誤操作.... 造成大家困擾, 對不起大家~~
感謝大家 !

c_c_lai

回復 33# GBKEE
28# 的程式碼我這端測試是沒問題，
自從加上 If D.exists(E) = False Then 後，
我就抓不到怪異狀況。無論是原本的、
或者是28# 的程式碼。但 jackyliu 說依舊會偶發。
目前在等待 jackyliu 的測試結果。
她說那邊好像有待再次印證。

P.S. 我加上 If E <> "" Then 是完全濾掉空字串延生的問題。

GBKEE

回復 29# c_c_lai
28# 的程式碼 有時還是錯誤?要加上If E <> "" Then  來過濾嗎?