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

[µo°Ý] ¨D¨C¤ë²Ä¤@­Ó¥æ©ö¤é

[µo°Ý] ¨D¨C¤ë²Ä¤@­Ó¥æ©ö¤é

½Ð°Ý°ª¤â:
A:GÄæ¬O¥Ñºô¸ô¤U¸ü¨Óªº­ÓªÑ¾ú¥v¥æ©ö¸ê®Æ(¤é)¡A½Ð°Ý¦³¦ó¿ìªk¦bKÄæ¦Û°Ê¥ÑAÄæ¨Ì§Ç§ì¨ú¨C¤ëªº²Ä¤@­Ó¥æ©ö¤éªº¤é´Á¡A¦]¬°¨C­Ó¤ëªº²Ä¤@­Ó¥æ©ö¤é¤£¤@©w¦b1¤é¡A¥H2000¦~4¤ë¬°¨Ò¡A²Ä¤@­Ó¥æ©ö¤é¬O2000/4/3¡A½Ð°ª¤â½ç±Ð¡AÁÂÁÂ
test.rar (85.29 KB)
¦~ÄÖ¤£¤p,¦ý§Ú«Ü·Q¾Ç

¦^´_ 1# bhsm
  1. Sub nn()
  2. Set d = CreateObject("Scripting.Dictionary")
  3. For Each a In Range([A2], [A2].End(xlDown))
  4.    If d.exists(Format(a, "yyyymm")) = False Then d(Format(a, "yyyymm")) = a
  5. Next
  6. [K2].Resize(d.Count, 1) = Application.Transpose(d.items)
  7. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh
·PÁÂHsieh¤j,VBA°õ¦æ³t«×¯u§Ö,·P®¦
¦~ÄÖ¤£¤p,¦ý§Ú«Ü·Q¾Ç

TOP

        ÀR«ä¦Û¦b : ¡i®É¤é²öªÅ¹L¡j¤@­Ó¤H¦b¥@¶¡°µ¤F¦h¤Ö¨Æ¡A´Nµ¥©ó¹Ø©R¦³¦hªø¡C¦]¦¹¥²¶·»P®É¶¡Ävª§¡A¤Á²ö¨Ï®É¤éªÅ¹L¡C
ªð¦^¦Cªí ¤W¤@¥DÃD