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

¦p¦ó§R°£­«½Æ¸ê®Æªº¦C»P³æ¯Â§R°£Àx¦s®æªº¥¨¶°°µªk

¦p¦ó§R°£­«½Æ¸ê®Æªº¦C»P³æ¯Â§R°£Àx¦s®æªº¥¨¶°°µªk

¦p¦ó¥Î¥¨¶°§@¡G
                           »Ý¨D1.­«½Æ¸ê®Æªº§R°£¦Cªº°Ê§@                                                           »Ý¨D2.­«½Æ¸ê®Æ¶È§R°£Àx¦s®æ¸ê®Æ¤£§R°£¦C
     A     B     C                  A    B    C                                      A     B      C                        A    B     C
1   AA                         1   AA                                           1   AA                                 1  AA   
2   BB                          2   BB                                           2   BB                                 2  BB
3   CC                  ¡÷        3   CC                                           3   CC                    ¡÷          3  CC  
4   AA                         4   DD                                           4   AA                                 4
5   CC                         5   EE                                           5   CC                                 5
6   DD                                                                            6   DD                                 6   DD
7   EE                                                                            7   EE                                  7   EE

¦^´_ 1# lone_tiger0303
  1. Sub Ex()
  2.     Dim Rng As Range, Ar, i%
  3.     Set Rng = [a1:a10]
  4.     Ar = Application.Transpose(Rng)
  5.     For i = UBound(Ar) To 1 Step -1
  6.         If Application.CountIf(Rng, "=" & Ar(i)) > 1 Then Rng(i) = ""
  7.     Next    ''
  8.     ''''''''''¤W­±µ{¦¡½X  ±N­«½Æ¸ê®Æªº¦ì¸m¬°ªÅ¥Õ ''''''''''''''''''''''''
  9.     Rng.SpecialCells(xlCellTypeBlanks).Delete xlUp    'ªÅ¥Õ¦ì¸m§R°£ªº°Ê§@
  10. End Sub
½Æ»s¥N½X

TOP

ÁÂÁÂGBKEE¤j¤jªº¨ó§U

TOP

¦^´_ 2# GBKEE


½Ð°Ý¤j¤j
­nÅܧ󬰾ã¦C§R°£«ç»ò­×§ï
ÁÂÁÂ
¶}¤ß¾Ç²ß,¾Ç²ß«Ü¶}¤ß

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-10-10 15:58 ½s¿è

¦^´_ 4# linsurvey2005
Rng.SpecialCells(xlCellTypeBlanks).EntireRow.Delete xlUp   
ªÅ¥Õ¦ì¸m ¾ã¦C §R°£ªº°Ê§@

TOP

¦^´_ 5# GBKEE


¤ôºÞ¤w¸g¥´³q ·PÁ¤j¤j
¶}¤ß¾Ç²ß,¾Ç²ß«Ü¶}¤ß

TOP

        ÀR«ä¦Û¦b : ¨C¤ÑµL©Ò¨Æ¨Æ¡A¬O¤H¥Íªº®ø¶OªÌ¡A¿n·¥¡B¦³¥Î¤~¬O¤H¥Íªº³Ð³yªÌ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD