1,ç¨VBAåå§,alt+F11,æ·è´ä»£ç å°è¯¥è¡¨æ ¼çsheetä¸ï¼F5
sub aa
dim rng as range
for each rng in [b1:b20]
if rng>rng.offset(,-1) then
rng.interior.colorindex=3'åå
æ ¼å¡«å
红è²ã
rng.Font.Color = RGB(255, 0, 0)'åä½ä¸ºçº¢è²ãæä¸é¢çä¸å¥ï¼æ¤äºéå
¶ä¸ä¾¿å¯
end if
next
end sub