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

®æ¦¡¤ñ¹ï

®æ¦¡¤ñ¹ï

¦U¦ì¤j¤j¦n~

¦³¤@­Ó°ÝÃD·Q½Ð±Ð¡A¦p¦ó¨Ï¥Îvba¤ñ¹ï2­ÓÀx¦s®æ¤º®e
¤ñ¦p  a   b  c  Ä椤¦U¦³¸ê®Æ¦ý¨Ã«D¥þ¼Æ³£¦³¸ê®Æ¡A¥i§_°µ¨ì ¦pªGa¤ºµL¸ê®Æ ¦Óc¤º¦³¸ê®Æ´N§R°£¸Ó¦C©Ò¦³¸ê®Æ¡A
aÄ椺¦³¸ê®ÆcÄ椺¤]¦³¸ê®Æ´N¸õ¹LÀˬd¤U¤@¦C
¦¹°Ê§@©ó«e¸m¨ä¥¦°Ê§@§¹¦¨¤§«á¤~¶i¦æ¦Ó«D¤@±Ò°Ê¥ß§Y°õ¦æ¡A¦]¦³³¡¥÷¸ê®Æ¥i¯à¦b«e¸m°Ê§@¤¤·|¥[¤J»Ý©ó³Ì«á
¤~§@°Ê¡AÁÂÁ¤j¤jª©ªº«ü¾É¡C

¦^´_ 1# ayubbs
  1. Sub ex()
  2. If Application.CountA([C:C]) = 0 Then Exit Sub 'CÄæ¨S¦³¥ô¦ó¸ê®Æ´Nµ²§ôµ{§Ç
  3. For Each A In Range("C:C").SpecialCells(xlCellTypeConstants) '¹M¾úCÄæ©Ò¦³¸ê®Æ
  4.   If A.Offset(, -2) = "" Then A.Clear 'AÄ欰ªÅ¥Õ´N²M°£CÄæ
  5. Next
  6. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

01.gif ¦^´_ 2# Hsieh

·PÁ«ü¾É¡A¦b¨Ï¥Î®Éµo¥Í¿ù»~¦³¥H¤U°T®§



¤j¤j©Ò¨Ï¥Îªº¤è¦¡¬O§_¬°aÄ椤¬Y®æµL­È²M°£¸Ó¦C°£®Æ¡A¦ý­Y·Q±N¨äÅܦ¨§R°£¸Ó¦CÁקK²£ªÅªº¤@¦C¸ê®Æ¤£¦n¬Ý¡A¤S¸Ó¦p¦ó¨Ï¥Î

ÁÂÁÂ

TOP

¦^´_ 3# ayubbs
  1. Sub ex()
  2. Dim A as Range
  3. If Application.CountA([C:C]) = 0 Then Exit Sub 'CÄæ¨S¦³¥ô¦ó¸ê®Æ´Nµ²§ôµ{§Ç
  4. For Each A In Range("C:C").SpecialCells(xlCellTypeConstants) '¹M¾úCÄæ©Ò¦³¸ê®Æ
  5.   If A.Offset(, -2) = "" Then A.Clear 'AÄ欰ªÅ¥Õ´N²M°£CÄæ
  6. Next
  7. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# Hsieh

ÁÂÁª©¤j¤w¥i¥¿±`°õ¦æ¡A¦p±ø¥ó²Å¦X¡A¨º¥i§_§ï¦¨§R°£¦C¡A¦Ó¤£¬O¥u²M°£CÄ椺ªº­È

TOP

¦^´_ 5# ayubbs
  1. Sub ex()
  2. Dim A As Range, Rng As Range
  3. If Application.CountA([C:C]) = 0 Then Exit Sub 'CÄæ¨S¦³¥ô¦ó¸ê®Æ´Nµ²§ôµ{§Ç
  4. For Each A In Range("C:C").SpecialCells(xlCellTypeConstants) '¹M¾úCÄæ©Ò¦³¸ê®Æ
  5.   If A.Offset(, -2) = "" Then
  6.     'A.Clear 'AÄ欰ªÅ¥Õ´N²M°£CÄæ
  7.     If Rng Is Nothing Then Set Rng = A.EntireRow Else Set Rng = Union(Rng, A.EntireRow)
  8.   End If
  9. Next
  10. Rng.Delete
  11. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 6# Hsieh


   ¯u¬O¤Ó·PÁÂ~¤Ó¦n¥Î¤F....

TOP

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