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

¦³Ãö±N¸ê®Æ¤£­«ÂжK¤Wªº°ÝÃD!!!

¦³Ãö±N¸ê®Æ¤£­«ÂжK¤Wªº°ÝÃD!!!

¥»©«³Ì«á¥Ñ imzues ©ó 2010-8-26 15:05 ½s¿è

§Ú·Q°Ýªº¬O­ì¥»¬O±NDÄ檺¸ê®Æ¶K¹L¥h
Columns("D:D").AdvancedFilter xlFilterCopy, CopyToRange:=[G1], Unique:=True
¦ý­Y¬O§Ú»Ý­n²Î­pªº¬O¤@­Ó½d³òªº¸ê®Æ¦³¿ìªk¤@¼Ë¶K¦b¦P¤@Äæ¶Ü??
EX:range(A1:D10)ªº½d³ò­«ÂжK¦Ü¦P¤@Ä榳¿ìªk°µ¨ì¶Ü??
½Ð¦U¦ì¤j¤j«üÂI¤@¤U!!!

EX:range(A1:D10)ªº½d³ò­«ÂжK¦Ü¦P¤@Ä榳¿ìªk°µ¨ì¶Ü??
«ÜÃø¬ÝÀ´»¡¤°»ò¡I

TOP

­Y¬O¸ê®Æ¬O
    A    B    C
1   ¬ü°ê ¬ü°ê ·s¥[ªi
2   ¤é¥» ­^°ê ·s¥[ªi
3   ­^°ê ­^°ê ¤é¥»
4   ¤é¥» ·s¥[ªi ¤é¥»
5   ¤é¥» ­^°ê ¬ü°ê
Ãþ¦ü³o¼Ë¦ý¬O...´N¬O¦n´XÄæ³£¦³¸ê®Æ»Ý­n¤£­«½Æ¶K¤W¦³¿ìªk°µ¨ì¶Ü?

TOP

¶i¶¥¿z¿ïªº¸ê®Æªí¡AÄæ¦ì¦WºÙ¬O¥²³Æ±ø¥ó
©Ò¥H½Æ»s¹L¥h³£·|¥[¤JÄæ¦ì¦WºÙ
  1. Sub nn()
  2. For i = 1 To 3
  3.    Columns(i).AdvancedFilter xlFilterCopy, , [G65536].End(xlUp).Offset(1, 0), True
  4. Next
  5. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2010-8-27 20:23 ½s¿è

¦^´_ 3# imzues
¸Õ¸Õ¬Ý¬O§_ ¦p¦¹
  1. Sub Ex()
  2.     Dim D As Object
  3.     Set D = CreateObject("SCRIPTING.DICTIONARY")
  4.     For Each E In [A1:D10]  '
  5.        If E <> "" Then D(E.Value) = ""
  6.     Next
  7.     [G:G].Clear
  8.     [G1].Resize(D.Count, 1) = Application.Transpose(D.KEYS)
  9. End Sub
½Æ»s¥N½X

TOP

¦^´_ 5# GBKEE


    ·PÁ¨â¦ì¤j¤jªº¤èªk....§Úµ¥µ¥°¨¤W¸Õ¸Õ¬Ý ÁÂÁ§A­Ì!!

TOP

¦^´_ 5# GBKEE
³o¼Ëªºµ²ªG¬OA:Dªº¤£­«½Æ²M³æ
­Y¨CÄæ­Ó§O¿z¿ï¨äµ²ªG¬O³æÄ椣­«½Æ¡A¦ý4Äæ¥þ³¡ÁÙ·|¦³­«½Æ
ºÝ¬Ý¼Ó¥D»Ý¨D¬°¦ó?­Y¨Ï¥ÎDictionaryª«¥ó³B²z¦¨¬°»P¶i¶¥¿z¿ï¦P¼Ë®ÄªG¦Ó¥h°£¼ÐÃDªº¸Ü
¨CÄæ¦ì¥[¤@­Ó°j°é¸`¼Æ¨C¤@¦^°é«e²M°£¤@¦¸Dictionaryª«¥ó§Y¥i
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¤Hªº¤ß¦a¬O¤@²¥¥Ð¡A¤g¦a¨S¦³¼½¤U¦nºØ¤l¡A¤]ªø¤£¥X¦nªºªG¹ê¡C -
ªð¦^¦Cªí ¤W¤@¥DÃD