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

看板Office作者 (發錢喇幹)時間3年前 (2021/02/23 17:48), 3年前編輯推噓1(1推 0噓 13→)
留言14則, 3人參與, 3年前最新討論串1/1
※ [本文轉錄自 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
→
02/23 16:33, 3年前 , 1F
補充 比對的部份我這樣寫
02/23 16:33, 1F
→
02/23 16:33, 3年前 , 2F
02/23 16:33, 2F
※ 發信站: 批踢踢實業坊(ptt.cc) ※ 轉錄者: andy90498 (123.204.231.208 臺灣), 02/23/2021 17:48:54 ※ 編輯: andy90498 (123.204.231.208 臺灣), 02/23/2021 17:49:15
→
02/23 18:00, 3年前 , 3F
提供檔案會比較清楚
02/23 18:00, 3F
在這邊 我有打了些馬賽克 但不影響問題 http://bit.ly/37AiSPR ※ 編輯: andy90498 (123.204.231.208 臺灣), 02/23/2021 18:16:43
→
02/23 18:20, 3年前 , 4F
如果是格子很明顯不同的 那不是本次的問題
02/23 18:20, 4F
→
02/23 18:21, 3年前 , 5F
有問題的是格子資料皆相同 但判讀卻有標色的那些
02/23 18:21, 5F
→
02/23 18:21, 3年前 , 6F
謝謝各位花時間看到這邊
02/23 18:21, 6F
推
02/23 18:26, 3年前 , 7F
cells(...).value
02/23 18:26, 7F
→
02/23 18:27, 3年前 , 8F
才是文字
02/23 18:27, 8F
謝謝告知! 但是我剛剛做了這樣子的修改 仍然無法解決程式判讀不同的結果 https://i.imgur.com/NmjcvuI.png
※ 編輯: andy90498 (123.204.231.208 臺灣), 02/23/2021 18:34:15
→
02/23 18:35, 3年前 , 9F
目前找到一種解法是 兩邊的工作格 我把有問題的那幾格
02/23 18:35, 9F
→
02/23 18:35, 3年前 , 10F
單純DELETE掉 然後手動KEY回去 他就正常了
02/23 18:35, 10F
→
02/23 18:35, 3年前 , 11F
但數量這麼多 實在很困擾 剛剛又手動寫了一個讓程式
02/23 18:35, 11F
→
02/23 18:36, 3年前 , 12F
刪除之後又key回去的VBA 結果反而沒用 一定要人工
02/23 18:36, 12F
→
02/23 19:02, 3年前 , 13F
以內文寫到的1431這個儲存格來看
02/23 19:02, 13F
→
02/23 19:02, 3年前 , 14F
宣告為字串就字型色彩就不會是紅色
02/23 19:02, 14F
→
02/23 19:02, 3年前 , 15F
02/23 19:02, 15F
!!!解決了 感謝大神相救 我把 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
→
02/23 19:06, 3年前 , 16F
我以為同一行用,隔開 都會一起宣告成string 看樣子錯了
02/23 19:06, 16F
‣ 更多 andy90498 的文章
文章代碼(AID): #1WDC-7-g (Office)