Fw: [請問] EXCEL VBA比對資料問題

[andy90498 (發錢喇幹)]

※ [本文轉錄自 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://www.ptt.cc/bbs/ask/M.1614069018.A.0B4.html
→ andy90498: 補充 比對的部份我這樣寫
→ andy90498: https://i.imgur.com/laF9o3d.png
※ 發信站: 批踢踢實業坊(ptt.cc)
※ 轉錄者: andy90498 (123.204.231.208 臺灣), 02/23/2021 17:48:54
※ 編輯: andy90498 (123.204.231.208 臺灣), 02/23/2021 17:49:15
→ soyoso: 提供檔案會比較清楚
在這邊 我有打了些馬賽克 但不影響問題
http://bit.ly/37AiSPR
※ 編輯: andy90498 (123.204.231.208 臺灣), 02/23/2021 18:16:43
→ andy90498: 如果是格子很明顯不同的 那不是本次的問題
→ andy90498: 有問題的是格子資料皆相同 但判讀卻有標色的那些
→ andy90498: 謝謝各位花時間看到這邊
推 cracydancer: cells(...).value
→ cracydancer: 才是文字
謝謝告知!  但是我剛剛做了這樣子的修改  仍然無法解決程式判讀不同的結果
https://i.imgur.com/NmjcvuI.png
※ 編輯: andy90498 (123.204.231.208 臺灣), 02/23/2021 18:34:15
→ andy90498: 目前找到一種解法是 兩邊的工作格 我把有問題的那幾格
→ andy90498: 單純DELETE掉 然後手動KEY回去 他就正常了
→ andy90498: 但數量這麼多 實在很困擾 剛剛又手動寫了一個讓程式
→ andy90498: 刪除之後又key回去的VBA  結果反而沒用 一定要人工
→ soyoso: 以內文寫到的1431這個儲存格來看
→ soyoso: 宣告為字串就字型色彩就不會是紅色
→ soyoso: https://i.imgur.com/UHufEDC.jpg
!!!解決了
感謝大神相救
我把

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
→ andy90498: 我以為同一行用,隔開 都會一起宣告成string 看樣子錯了