作者azuel (Observer)
看板Visual_Basic
标题Re: [VBA] Excel VBA巨集数量加总比对
时间Thu Mar 14 14:34:14 2019
※ 引述《darklimit (Yu)》之铭言：
: Sub sum()
: Dim A1 as Variant
: Dim A2 as Variant
: A1 = sheets(“Sheets1”).Range(“A1:C6”).Value
: A2 = sheets(“Sheets2”).Range(“A1:C6”).Value
: If A1 = A2 Then
: MsgBox “没问题”
: Else
: MsgBox “有问题，请重新检查”
: End If
: End sub
之前忙，没空回code，我大致讲一下怎样处理，详细的code你琢磨一下
如果你有要检查具体是array里面哪一个value不对，能找出错误处的话
要用loop去一个个比对，因为是二维阵列，记得多考虑一层
如果你只是要看两个阵列是不是完全相同
1. 先用Ubound和Lbound确认两个阵列是不是一样大，如果不一样大就直接完工
2. 用join()把整个阵列串成一个string，看看A1跟A2转换後是不是相同
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 218.161.27.67
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1552545257.A.5C8.html
1F：→ darklimit: 谢谢大大的说明，我在想想看 03/14 21:20
2F：→ MOONRAKER: join这招不错 03/15 09:52