作者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/cn.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