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

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2013-7-23 11:28 | 只看該作者

回復 1# jackyliu
試試看

Option Explicit
Sub Ex()
Dim D As Object, E, I As Integer
Set D = CreateObject("Scripting.dictionary") '字典物件
For Each E In Sheet1.Range("a1").CurrentRegion.Rows '物件: A1所延伸範圍的列
D(E.Cells(1, 1) & E.Cells(1, 2) & E.Cells(1, 3) & E.Cells(1, 5)) = E.Value
Next
With Sheet2
.Cells.Clear
I = 1
For Each E In D.KEYS
.Cells(I, "A").Resize(1, UBound(D(E), 2)) = D(E) '讀取字典物件的ITEM(陣列)
I = I + 1
Next
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

jackyliu

中學生 Rank: 2

帖子: 72
主題: 13
精華: 0
積分: 90
點名: 0
作業系統: windows xp
軟體版本: office 2000
閱讀權限: 20
性別: 女
註冊時間: 2011-2-14
最後登錄: 2024-10-13

3^#

發表於 2013-7-23 13:50 | 只看該作者

程式直到這行就出現錯誤了,會是宣告的問題還是我Execl資料有數字,英文,中文的關係嗎?

.Cells(I, "A").Resize(1, UBound(D(E), 2)) = D(E) '讀取字典物件的ITEM(陣列)

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

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2013-7-23 14:06 | 只看該作者

回復 3# jackyliu
給的程式碼是以 Sheet1A1所延伸範圍的列為 Sheet1 的資料
For Each E In Sheet1.Range("a1").CurrentRegion.Rows '物件: A1所延伸範圍的列
你測試檔案中 Sheet1 的資料在哪裡?? 須附上你測試檔才了解

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

jackyliu

中學生 Rank: 2

帖子: 72
主題: 13
精華: 0
積分: 90
點名: 0
作業系統: windows xp
軟體版本: office 2000
閱讀權限: 20
性別: 女
註冊時間: 2011-2-14
最後登錄: 2024-10-13

5^#

發表於 2013-7-23 22:20 | 只看該作者

感謝板大用心....
For Each E In Sheet1.Range("a1").CurrentRegion.Rows    '物件: A1所延伸範圍的列
      D(E.Cells(1, 1) & E.Cells(1, 2) & E.Cells(1, 3) & E.Cells(1, 5)) = E.Value
Next
以上程式說明: 搜尋整數變數E 範圍是Sheet1的A1列的範圍,將搜尋到的第1,2,3,5欄的E值給變數D,持續搜尋行列資料,直到沒有資料為止.

With Sheet2
      .Cells.Clear
      I = 1
      For Each E In D.KEYS
         .Cells(I, "A").Resize(1, UBound(D(E), 2)) = D(E) '讀取字典物件的ITEM(陣列)
      I = I + 1
      Next
End With
以上程式說明: Sheet2所有資料清除,從陣列變數D裡搜尋陣列變數E的值,將每一行列的值,依序寫入Sheet2

從code 理解的看法說明如上, 不知道解釋有誤嗎? 請教導!
可否幫忙教導程式如何判定已存在,有重複內容,不執行寫入Sheet2裡,好嗎?

並附上有錯誤的檔案,如附件!

檢視重複資料-1.rar (7.58 KB)

檢視重複資料-1

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2013-7-24 06:39 | 只看該作者

回復 5# jackyliu
可能是版本的差異2000版沒用過,不知錯誤在哪裡,2003執行沒有錯誤的
請找出錯誤點如圖

何判定已存在,有重複內容,不執行寫入Sheet2裡
程式碼如下

Option Explicit
Sub Ex()
Dim D1 As Object, D2 As Object, E, I As Integer, S As String
Set D1 = CreateObject("Scripting.dictionary") '字典物件
Set D2 = CreateObject("Scripting.dictionary") '字典物件
For Each E In Sheet1.Range("a1").CurrentRegion.Rows '物件: A1所延伸範圍的列
S = E.Cells(1, 1) & E.Cells(1, 2) & E.Cells(1, 3) & E.Cells(1, 5) 'S=>key值
D1(S) = E.Value '有相同的key值-> E範圍的值(陣列) 讀入到Item
D2(S) = D2(S) + 1 '有相同的key值-> item +1
Next
With Sheet2
.Cells.Clear
I = 1
For Each E In D2.KEYS
If D2(E) = 1 Then 'D2沒重覆的key值 -> item= 1
.Cells(I, "A").Resize(1, UBound(D1(E), 2)) = D1(E) '讀取D1相同的key值: 導入D1的Item(陣列)
I = I + 1
End If
Next
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

7^#

發表於 2013-7-24 08:26 | 只看該作者

回復 4# GBKEE

For Each E In D.KEYS
.Cells(I, "A").Resize(1, UBound(D(E), 2)) = D(E)

複製代碼

我偵測的結果：(Office 2010)
當 E 傳入值為 "無" 時，它就會產生 "型態不符" 的訊息。
我用 Debug 模式逐一執行，觀察相關變數的存入值之變化，

Dk(E.Cells(1, 1) & E.Cells(1, 2) & E.Cells(1, 3) & E.Cells(1, 5)) = E.Value

複製代碼

當發現 E.Value 莫名為 "無' 時，便知大勢已去。但非每次如此，只要是有此現象
接下來的執行都是 "型態不符"。此時，再將程式碼重新儲存、喝杯茶再重新執行，
它舒暢了便又正常執行了。
這極可能是 Office 潛在的 Bug，亦即 E 值的型態判定之問題，使得代入值會無端
變為 "無"。
P.S. 我在 ThisWorkbook、以及 Module1 分別執行都曾發生此異狀。

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

8^#

發表於 2013-7-24 08:47 | 只看該作者

回復 7# c_c_lai
煩請在加上.Value測試看看

For Each E In D.KEYS
.Cells(I, "A").Resize(1, UBound(D(E), 2)).Value = D(E)

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

9^#

發表於 2013-7-24 10:08 | 只看該作者

本帖最後由 c_c_lai 於 2013-7-24 10:11 編輯

回復 8# GBKEE
絕對不是 .Value 的因素，
.Cells(cts, "A").Resize(1, UBound(Dk(E), 2)) = Dk(E) 與
.Cells(cts, "A").Resize(1, UBound(Dk(E), 2)).Value = Dk(E)
其實都是同等意義，因為在一進入 For Each E In D.KEYS 後即偵測到
值為 "無" 的情況 (此現象才令人百思不解)。
只要沒異狀發生，接下多次執行都是 OK，
反之、則均是 "型態不符"。理論上是不該有的錯誤，我亦試著
將 E 明確宣告為 Variant，只要發生異狀神仙也無解，
只能等它氣消了！

P. S. 順便請教，最近網頁是不是被更改到了，
我的右上角個人資訊只顯示
[module]邊欄模塊_我的助手[/module]

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

10^#

發表於 2013-7-24 10:17 | 只看該作者

回復 9# c_c_lai
辛苦了,請換個變數名稱試試看

For Each K In D.KEYS
.Cells(I, "A").Resize(1, UBound(D(K), 2)) = D(K)

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.