ARRAY_1A = [a100, a200, a300, a400, a500]
ARRAY_1B = [b100, b200, b300, b400, b500]
ARRAY_1C = [c100, c200, c300, c400, c500]
ARRAY_1D = [d100, d200, d300, d400, d500]
ARRAY_1E = [e100, e200, e300, e400, e500]

ARRAY_2A = [a100, a300, a200]
ARRAY_2B = [b100, b300, b200]
ARRAY_2C = [c100, c300, c200]
ARRAY_2D = [d100, d300, d200]
ARRAY_2E = [e100, e300, e200]

[a400, b400, c400, d400, e400]
[a500, b500, c500, d500, e500]

Dim j As Long
Dim i As Long
For j = LBound(ARRAY_1A, 1) To UBound(ARRAY_1A, 1)
        For i = LBound(ARRAY_2A) To UBound(ARRAY_2A)
            If ARRAY_1A(j, 1) = ARRAY_2A(i, 1) And _
               ARRAY_1B(j, 1) = ARRAY_2B(i, 1) And _
               ARRAY_1C(j, 1) = ARRAY_2C(i, 1) Then
                'Exit For
                GoTo Lavel1
            ElseIf i = UBound(ARRAY_2A) Then

                Debug.Print ARRAY_1A(j, 1), _
                            ARRAY_1B(j, 1), _
                            ARRAY_1C(j, 1), _
                            ARRAY_1D(j, 1), _
                            ARRAY_1E(j, 1)

            End If
        Next i

'    End If
Lavel1:
Next j