Usted puede utilizar la escritura que le di anterior para hacer ambos inmediatamente.
Para i=5 a la gama (“F65536”). Extremo (xlUp). Fila
si está ido (células (i, 6).value, 5)<> “M0000” entonces
si es derecho (células (i, 3).value, len (células (i, 6).value))<>células (i, 6) entonces
células (i, 3).interior.colorindex=3
endif
si están idos (células (i, 3).value, len (células (i, 4).value))<>células (i, 3) entonces
células (i, 3).interior.colorindex=3
endif
si células (i, "" 4).value= entonces
células (i, 4).interior.colorindex=3
endif
endif
después