Potete usare lo scritto che lo ho dato più presto per fare entrambi immediatamente.
Per i=5 a gamma (“F65536„). Estremità (xlUp). Fila
se andato (cellule (i, 6).value, 5)<> “M0000„ allora
se di destra (cellule (i, 3).value, len (cellule (i, 6).value))<>cellule (i, 6) allora
cellule (i, 3).interior.colorindex=3
endif
altrimenti
se andato (cellule (i, 3).value, len (cellule (i, 4).value))<>cellule (i, 3) allora
cellule (i, 3).interior.colorindex=3
endif
se cellule (i, "" 4).value= allora
cellule (i, 4).interior.colorindex=3
endif
endif
dopo