12345
返回列表 上一主題 發帖

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

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
32# 跳轉到 »
發表於 2013-7-26 12:04 | 只看該作者
本帖最後由 stillfish00 於 2013-7-26 12:11 編輯

回復 26# jackyliu
依你26#的圖

要逐步執行的話，把D(E)的監看式拿掉吧。

1.  當字典用不存在的Key取回物件時會自動新增該Key，這點在偵錯時看起來還是有效的....
      你可以自己試試中斷後在即時運算視窗打   ?d("不存在的Key")  ，就會自動在d底下新增一個item啦..
2.  然後當你要逐步執行時，因為有設d(E)的監看式，每一步都會取回 d(E)，可是 E 一值都是存在的Key嗎???
     不是，當你程式執行到For Each E前一行或Next後一行，E都是 '無'，於是它找不到這個Key又自動新增了，所以才造成字典內的Key(6)也為無。

比起來，偵錯時若只用區域變數視窗看d值(我原本也是這樣)，怎樣都不會遇到妳說的問題。

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
31#
發表於 2013-7-26 10:29 | 只看該作者
回復 30# jackyliu
測試看看是否能正常執行？
謝謝妳！

TOP

jackyliu

帖子
72 
主題
13 
精華
0 
積分
90 
點名
0  
作業系統
windows xp 
軟體版本
office 2000 
閱讀權限
20 
性別
女 
註冊時間
2011-2-14 
最後登錄
2024-10-13 
30#
發表於 2013-7-26 09:48 | 只看該作者
回復 29# c_c_lai


    Sorry ~  我以為是使用 最底下的  發表回復,
下次直接點選文章裡的回覆 ~ 造成困擾,請見諒 !!

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
29#
發表於 2013-7-26 07:04 | 只看該作者
本帖最後由 c_c_lai 於 2013-7-26 07:33 編輯

回復 28# GBKEE
回復 26# jackyliu
試著將以下程式碼修
  1. For Each E In D.KEYS
  2.     .Cells(cts, "A").Resize(1, UBound(D(E), 2)).Value = D(E)   '  讀取字典物件的 ITEM (陣列)
  3.     cts = cts + 1
  4. Next
複製代碼
改成
  1. For Each E In D.KEYS
  2.     If E <> "" Then _
  3.         .Cells(cts, "A").Resize(1, UBound(D(E), 2)).Value = D(E)   '  讀取字典物件的 ITEM (陣列)
  4.     cts = cts + 1
  5. Next
複製代碼
再將它操練一下。

P.S. 回覆人家時，請使用選按 "回覆" 鈕，否則當事人是不知道妳已回覆問題了！
       (這也是一種傳統禮節)

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
28#
發表於 2013-7-26 06:23 | 只看該作者
回復 26# jackyliu
再試試看
  1. Option Explicit
  2. Sub Ex()
  3.     Dim D As Object, E, i As Integer
  4.     Set D = CreateObject("Scripting.dictionary")             '字典物件
  5.     i = 1
  6.     With Sheet1
  7.         Do While .Cells(i, "A") <> ""
  8.             E = .Cells(i, "A") & .Cells(1, "B") & .Cells(1, "C") & .Cells(1, "E")
  9.             If D.exists(E) = False Then
  10.                D(E) = .Cells(i, "A").Resize(1, 6).Value
  11.             End If
  12.             i = i + 1
  13.         Loop
  14.     End With
  15.     i = 1
  16.     With Sheet2
  17.         .Cells.Clear
  18.         For Each E In D.KEYS
  19.             .Cells(i, "A").Resize(1, UBound(D(E), 2)) = D(E)   '讀取字典物件的ITEM(陣列)
  20.             i = i + 1
  21.         Next
  22.     End With
  23. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2025-7-5 
27#
發表於 2013-7-25 22:41 | 只看該作者
板大:
我是用2003版的, 直接按執行OK, 執行三次後,
我選擇逐步偵錯,一個一個看,  又會出現一樣的錯誤耶!
...
jackyliu 發表於 2013-7-25 21:55

如果在建立之初就把 無 濾掉是否有可能達到你的需求呢?
  1. .
  2.     For Each E In Sheet1.Range("a1").CurrentRegion.Rows      '物件: A1所延伸範圍的列
  3.     If Not E.Cells(1, 1) & E.Cells(1, 2) & E.Cells(1, 3) & E.Cells(1, 5) = "" Then
  4.          D(E.Cells(1, 1) & E.Cells(1, 2) & E.Cells(1, 3) & E.Cells(1, 5)) = E.Value
  5.       End If
  6.     Next
複製代碼

TOP

jackyliu

帖子
72 
主題
13 
精華
0 
積分
90 
點名
0  
作業系統
windows xp 
軟體版本
office 2000 
閱讀權限
20 
性別
女 
註冊時間
2011-2-14 
最後登錄
2024-10-13 
26#
發表於 2013-7-25 21:55 | 只看該作者
板大:
我是用2003版的, 直接按執行OK, 執行三次後,
我選擇逐步偵錯,一個一個看,  又會出現一樣的錯誤耶!

執行階段錯誤'13'
型態不符

型態不符.jpg (223.06 KB)

型態不符

型態不符.jpg

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
25#
發表於 2013-7-25 19:50 | 只看該作者
回復 24# c_c_lai
2003版沒有的問題,怎會在2007版出現,謝謝你的幫忙偵錯.
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
24#
發表於 2013-7-25 19:40 | 只看該作者
回復 20# GBKEE
回復 23# jackyliu
  1. Option Explicit

  3. Sub ex()
  4.     Dim D As Object, E As Variant, cts As Integer
  5.    
  6.     Set D = CreateObject("Scripting.dictionary")         '  字典物件
  7.    
  8.     For Each E In Sheet1.Range("A1").CurrentRegion.Rows  '  物件: A1 所延伸範圍的列
  9.         If D.exists(E.Cells(1, 1) & E.Cells(1, 2) & E.Cells(1, 3) & E.Cells(1, 5)) = False Then _
  10.                D(E.Cells(1, 1) & E.Cells(1, 2) & E.Cells(1, 3) & E.Cells(1, 5)) = E.Value
  11.     Next
  12.    
  13.     With Sheet2
  14.         .Cells.Clear
  15.         cts = 1
  16.         For Each E In D.KEYS
  17.             .Cells(cts, "A").Resize(1, UBound(D(E), 2)).Value = D(E)   '  讀取字典物件的 ITEM (陣列)
  18.         cts = cts + 1
  19.         Next
  20.     End With

  22.     Set D = Nothing
  23. End Sub
複製代碼
加入了過濾判斷，If D.exists(E.Cells(1, 1) & E.Cells(1, 2) & E.Cells(1, 3) & E.Cells(1, 5)) = False Then ....，
jackyliu 請再試看看！

TOP

jackyliu

帖子
72 
主題
13 
精華
0 
積分
90 
點名
0  
作業系統
windows xp 
軟體版本
office 2000 
閱讀權限
20 
性別
女 
註冊時間
2011-2-14 
最後登錄
2024-10-13 
23#
發表於 2013-7-25 18:27 | 只看該作者
重複值予以過濾調,和我說的重複值,不要複製到 Sheet2 的意思嗎?
有解嗎?

TOP

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