求助，各位帮我看看关于数值比较

Question

我想判断A1与B1，A1与B2,A1与B30.....B2与A2,B2与A3依次类推一直到3549。以下的代码执行起来速度太慢，有其他什么办法吗？希望高手指点
Dim StartA, StartB As Integer /*起始数*/
Dim cmpA, cmpB As String 
StartA = 1
StartB = 2
For StartA = 1 To 3549
    cmpA = Range("A" & StartA).Value /*获取数据A*/
For StartB = 2 To 3549
    cmpB = Range("B" & StartB).Value /*获取数据B*/
    If cmpA = cmpB Then              /*判断A与B的值是否相同*/
        MsgBox cmpA & "等于" & cmpB
    End If
    StartB = StartB + 1               /*自增*/
Next StartB
    StartA = StartA + 1
Next StartA

Answer 1

dim sh as excel.worksheet
dim stmp as string
set sh=.....'你兴趣的工作表with sh
For StartA = 1 To 3549
stmp=.cell(starta,1)'因为需要多次使用，a列数据缓存，避免多次访问对象
for start b=1 to 3549
if stmp=.cell(startb,2) then
MsgBox sTmp & "数据在B列中存在" '换一种提示表述。你原来的是“abc 等于 abc”end if
next
next
end with