VBA - Una macro para verificar datos

Estoy tratando de crear una macro de algún tipo para hacer algunas comprobaciones para asegurarme de que todo esté lleno correctamente. Aquí hay un ejemplo de la hoja de cálculo ...

A B C D E

1Kit Item Item2 Item3 Resultados

2AAA ABC BCD CDE

3AAA ABC BCD CDE BUENO

4BBB BCD CDE DEF

5BBB ABC BCD CDE BAD

6BBB ABC BCD CDE BUENO

7CCC BCD CDE DEF

8CCC ABC BCD CDE BAD

9CCC CDE CDE DEF BAD

10CCC ABC BCD CDE

Necesito escribir una macro que haga lo siguiente.

 Si la celda A1 = A2, verifique si B1 = B2 & C1 = C2 & D1 = D2.
Si todos coinciden, publique "BUENO" en E1, de lo contrario, publique "MALO en E1
Pero si A1 A2 deja el E1 en blanco y baja a A2 vs A3
En el ejemplo anterior A2 = A3 y B2 = B3 & C2 = C3 & D2 = D3, entonces E3 = BUENO
En el ejemplo anterior, A4 = A5 y B4 B5 y C4 C5 y D4 D5, entonces E5 = MALO

Solución

Aquí está el código:


Sub findResult ()
Kit de dim, Item, Item2, Item3, Results As Range
Atenuar artículoCuenta como largo
itemCount = Rango ("A1"). CurrentRegion.Rows.Count
Set Kit = Rango ("A: A")
Set Item = Range ("B: B")
Set Item2 = Range ("C: C")
Establecer Item3 = Rango ("D: D")
Establecer resultados = rango ("E: E")
Para i = 3 a itemCount
Seleccione el kit de estuche (i, 1) = Kit (i - 1, 1)
Caso verdadero
Si el ítem (i, 1) = Ítem (i - 1, 1) y el Ítem2 (i, 1) = Ítem2 (i - 1, 1) _
Y Item3 (i, 1) = Item3 (i - 1, 1) Entonces
Resultados (i, 1) = "BUENO"
Terminara si
Si (Ítem (i, 1) = Ítem (i - 1, 1) e Ítem2 (i, 1) = Ítem2 (i - 1, 1) _
Y Item3 (i, 1) = Item3 (i - 1, 1)) = False Then
Resultados (i, 1) = "MALO"
Terminara si
Caso falso
Resultados (i, 1) = ""
Selección final
Siguiente yo
End Sub