像这种类型的程序怎么简化

Question

' 遍历数组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