ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ½Ð°Ý¦p¦ó½T»{¤½¦¡¤£¬Û¦P

[µo°Ý] ½Ð°Ý¦p¦ó½T»{¤½¦¡¤£¬Û¦P

¥»©«³Ì«á¥Ñ freeffly ©ó 2012-6-12 10:32 ½s¿è

ªþÀɧڷQ§ä¥X¤W¤UÀx¦s®æ¤½¦¡¤£¤@¼Ë®É¼ÐÃC¦â
¥Ø«e§Ú·Q¨ìªº¬O¥Î activecell.offset(1,0).formular1c1<>activecell.formular1c1ªº¤è¦¡³B²z
¦]¬°¤@­ÓÀɮצ³¦n´X­Ó¤u§@ªí­nÀˬd¨Ï¥Î°j°é¦n¹³¦³ÂIºC

¤£ª¾¹D¦³¨S¦³§ó¦nªº¤è¦¡
¦p¦ó¥i¥H¥u¬Ý¨ì¤½¦¡¤£¤@­PªºÀx¦s®æ?(¦pªG¨â¦UÀx¦s®æ¤§¶¡¦³ªÅ®æ¦n¹³´N¨S¿ìªkÅã¥Ü¤£¤@­P)
§Æ±æ°ª¤â¸Ñµª



Book1.rar (8.07 KB)
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

±NÀÉ®×ÂনÁcÅé
ªþ¤W²{¦b°µªº¤è¦¡
²{¦bªº¤è¦¡¦pªG­È¤£¤@¼Ë¤]·|Àˬd
¦pªG¤£·QÀˬd¸ÓÄæ³£¬O­È±o¸Ó«ç»ò¼g?
  1. Sub dd()
  2. Application.ScreenUpdating = False
  3. For i = 4 To Range("IV1").End(xlToLeft).Column
  4. For r = 3 To Range("A65536").End(xlUp).Row
  5. If Cells(r, i).Offset(1, 0).FormulaR1C1 <> Cells(r, i).FormulaR1C1 Then
  6. Cells(r, i).Offset(1, 0).Interior.ColorIndex = 4
  7. End If
  8. Next
  9. Next
  10. End Sub
½Æ»s¥N½X
Book1.rar (10.91 KB)
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¨S¦³©Ò¦³Åv¡A¥u¦³¥Í©Rªº¨Ï¥ÎÅv¡C
ªð¦^¦Cªí ¤W¤@¥DÃD