求助,各位帮我看看关于数值比较
我想判断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