作者andy90498 (發錢喇幹)
看板Office
標題Fw: [請問] EXCEL VBA比對資料問題
時間Tue Feb 23 17:48:54 2021
※ [本文轉錄自 ask 看板 #1WDBqQ2q ]
作者: andy90498 (發錢喇幹) 看板: ask
標題: [請問] EXCEL VBA比對資料問題
時間: Tue Feb 23 16:30:15 2021
各位好 目前我有兩張工作表
期望是兩張工作表內容能一樣
所以寫了個VBA去讓他自動對照兩張工作表的同一個格子是否相同
圖例如下
https://i.imgur.com/BHSkjsz.png
但現在遇到的問題是
被VBA判讀資料或是底色不同的格子
經人工檢視 發現並沒有不同的地方(有檢查是不是受空格影響 但最後結論是沒有空格)
以下是VBA跑出來的狀況
判讀
https://i.imgur.com/6akEGHt.png
對照1
https://i.imgur.com/WE3MvWd.png
對照2
https://i.imgur.com/QnmVESK.png
其他地方大同小異
以上面的範例來說 被上紅色的1431 在兩張對照表上明明是相同的
但VBA卻判讀文字不同?
我有把兩邊的儲存格都設定成文字格式之後 再進行比對
請問這個到底是什麼問題呢?
還是有其他更方便比對兩張工作表內容的方法呢?
謝謝
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 123.204.231.208 (臺灣)
※ 文章網址: https://webptt.com/m.aspx?n=bbs/ask/M.1614069018.A.0B4.html
1F：→ andy90498: 補充 比對的部份我這樣寫 02/23 16:33
※ 發信站: 批踢踢實業坊(ptt.cc)
※ 轉錄者: andy90498 (123.204.231.208 臺灣), 02/23/2021 17:48:54
※ 編輯: andy90498 (123.204.231.208 臺灣), 02/23/2021 17:49:15
3F：→ soyoso: 提供檔案會比較清楚 02/23 18:00
在這邊 我有打了些馬賽克 但不影響問題
http://bit.ly/37AiSPR
※ 編輯: andy90498 (123.204.231.208 臺灣), 02/23/2021 18:16:43
4F：→ andy90498: 如果是格子很明顯不同的 那不是本次的問題 02/23 18:20
5F：→ andy90498: 有問題的是格子資料皆相同 但判讀卻有標色的那些 02/23 18:21
6F：→ andy90498: 謝謝各位花時間看到這邊 02/23 18:21
7F：推 cracydancer: cells(...).value 02/23 18:26
8F：→ cracydancer: 才是文字 02/23 18:27
謝謝告知! 但是我剛剛做了這樣子的修改 仍然無法解決程式判讀不同的結果
https://i.imgur.com/NmjcvuI.png
※ 編輯: andy90498 (123.204.231.208 臺灣), 02/23/2021 18:34:15
9F：→ andy90498: 目前找到一種解法是 兩邊的工作格 我把有問題的那幾格 02/23 18:35
10F：→ andy90498: 單純DELETE掉 然後手動KEY回去 他就正常了 02/23 18:35
11F：→ andy90498: 但數量這麼多 實在很困擾 剛剛又手動寫了一個讓程式 02/23 18:35
12F：→ andy90498: 刪除之後又key回去的VBA 結果反而沒用 一定要人工 02/23 18:36
13F：→ soyoso: 以內文寫到的1431這個儲存格來看 02/23 19:02
14F：→ soyoso: 宣告為字串就字型色彩就不會是紅色 02/23 19:02
!!!解決了
感謝大神相救
我把
Dim cpA1,cpA2,cpB1,cpB2 As String
改成
Dim cpA1 As String, cpA2 As String, cpB1 As String, cpB2 As String
就解決這個問題了
再次感謝大神拯救我的時間........
※ 編輯: andy90498 (123.204.231.208 臺灣), 02/23/2021 19:04:44
16F：→ andy90498: 我以為同一行用,隔開 都會一起宣告成string 看樣子錯了 02/23 19:06