' 遍历数组1
For i = LBound(Arr_1) To UBound(Arr_1)
If Arr_1(i) <> "" Then
For j = LBound(arr_4) To UBound(arr_4)
If Arr_1(i) = arr_4(j) And Sheet2.Cells(j, m).Interior.Color <> 65535 And Sheet1.Cells(i, n).Interior.Color <> 65535 Then
Sheet1.Select
Sheet1.Cells(i, n).Select
Selection.Interior.Color = 65535
Sheet2.Select
Sheet2.Cells(j, m).Select
Selection.Interior.Color = 65535
End If
Next
End If
Next
' 遍历数组2
For a = LBound(Arr_2) To UBound(Arr_2)
If Arr_2(a) <> "" Then
For b = LBound(Arr_3) To UBound(Arr_3)
If Arr_2(a) = Arr_3(b) And Sheet2.Cells(a, y).Interior.Color <> 65535 And Sheet1.Cells(b, x).Interior.Color <> 65535 Then
Sheet1.Select
Sheet1.Cells(b, x).Select
Selection.Interior.Color = 65535
Sheet2.Select
Sheet2.Cells(a, y).Select
Selection.Interior.Color = 65535
End If
Next
End If
Next