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

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

2^#

發表於 2013-7-23 13:50 | 顯示全部帖子

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

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

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

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

3^#

發表於 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

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

4^#

發表於 2013-7-24 22:05 | 顯示全部帖子

版大 :
一樣是執行階段錯誤'13'型態不符
時可以有時有錯誤,是不接受這樣的寫法嗎?
不知道是哪出了問題 ?

型態不符.jpg (31.33 KB)

型態不符

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

5^#

發表於 2013-7-25 07:58 | 顯示全部帖子

版大:
程式碼換上最後版, 一樣會出現 ---> 執行階段錯誤'13' 型態不符
程式偵錯停滯在更新的那段, 看不出來是什麼問題, 版大可以幫忙一下嗎?

.Cells(I, "A").Resize(1, UBound(D(K), 2)) = D(K)

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

6^#

發表於 2013-7-25 18:27 | 顯示全部帖子

重複值予以過濾調,和我說的重複值,不要複製到 Sheet2 的意思嗎?
有解嗎?

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

7^#

發表於 2013-7-25 21:55 | 顯示全部帖子

板大:
我是用2003版的, 直接按執行OK, 執行三次後,
我選擇逐步偵錯,一個一個看, 又會出現一樣的錯誤耶!

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

型態不符.jpg (223.06 KB)

型態不符

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

8^#

發表於 2013-7-26 09:48 | 顯示全部帖子

回復 29# c_c_lai

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

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

9^#

發表於 2013-7-26 13:36 | 顯示全部帖子

回復 33# GBKEE

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

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

10^#

發表於 2013-7-26 22:28 | 顯示全部帖子

回復 36# GBKEE

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

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

28樓.jpg (143.12 KB)

28樓程式碼