vba 数组 核对问题

amandafafa

请问代码中的arr3(y)<>1是什么意思？？？


Sub 单色一对一核对()
Dim arr1, arr2, arr3(1 To 10000)
Dim 红 As Byte, 绿 As Byte, 黄 As Byte
Set rg = Selection
If rg.Areas.Count <> 2 Then Exit Sub
arr1 = rg.Areas(1)
arr2 = rg.Areas(2)
rg.Interior.ColorIndex = xlNone
For x = 1 To UBound(arr1)
   For y = 1 To UBound(arr2)
     If arr1(x, 1) = arr2(y, 1) And arr3(y) <> 1 Then
        rg.Areas(1)(x).Interior.Color = RGB(255, 199, 206)
        rg.Areas(2)(y).Interior.Color = RGB(255, 199, 206)
        arr3(y) = 1
        GoTo 10
        End If
     Next y
10:
Next x
end sub

ringo777

代码中哪里有arr3(y)<>0？

amandafafa

ringo777 发表于 2023-7-21 16:48
代码中哪里有arr3(y)0？

打错了，是1.请教怎么删贴呢？