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

[µo°Ý] excel VBA ±q¤j¶q¸ê®Æ¤¤¸Ì§ä¥X¦@¦P­«½Æªº¸ê®Æ

[µo°Ý] excel VBA ±q¤j¶q¸ê®Æ¤¤¸Ì§ä¥X¦@¦P­«½Æªº¸ê®Æ

§Ú·Q­n±q1.2.3 §ä¥X¥L­Ì¤T­Ó¬Û¦Pªº¸ê®Æ¥X¨Ó¡A¦p¹Ï©Ò¥Ü¤T­Ó¦@¦P¬Û¦Pªº¦a¤è¬OB C D¡A
½Ð°Ý§Ú­n«ç¼Ë¼gVBAªº»yªk?  
¹Ï¤Wªº¨Ò¤l§Ú¥u¥Î1.2.3³o¤T­Ó¦Ó¤w¡A¹ê»Ú¤W¬O¦³nµ§¸ê®Æªº¡A©Ò¥H¼g½Ð°Ý¤j¤j­Ì¡A­n¦p¦ó±qnµ§¸ê®Æ§ä¥X¦@¦Pªº¦a¤è¥X¨Ó?

¥¼©R¦W.png (11.01 KB)

¥¼©R¦W.png

¦^´_ 1# Duck

¦P¤@¸s²Õ¤º¦³­«½Æªº¸Üºâ¶Ü¡H
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦]¬°¤w¸g¿z¿ï¹L¡A©Ò¥H°ò¥»¤W¦P¤@­Ó¸s²Õ¤£·|¦³­«½Æ

TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2014-3-20 14:47 ½s¿è

¦^´_ 3# Duck
  1. Sub ex()
  2. Dim Rng As Range
  3. Set d = CreateObject("Scripting.Dictionary")
  4. Set Rng = Range([B1], [B1].End(xlDown))
  5. For Each a In Rng
  6.    If Application.CountIf(Rng, a) > 1 Then d(a.Value) = ""
  7. Next
  8. If d.Count > 1 Then [D2].Resize(d.Count, 1) = Application.Transpose(d.keys)
  9. End Sub
½Æ»s¥N½X
¥Î¶i¶¥¿z¿ï¤]¥i¥H¿ì¨ì
play.gif
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# Hsieh


    ¦¨¥\¤F! ¤Q¤À·PÁ°ª¤âªºÀ°¦£

TOP

¦^´_ 4# Hsieh


    ¤£¦n·N«ä±z¦n¡A¥t¥~·Q¦b§ó¶i¶¥ªº°Ý±z¡A¤W¦¸§äªº¬O¥þ³¡¦P®É¥X²{¦A¿z¿ï¥X¨Óªºµ²ªG¡A¦ý²{¦b§Ú­n´«¦¨¥Î¦Ê¤À¤ñ¥h¿z¿ï¥Xµ²ªG­n¦p¦ó§ïVBA?
    °²³]¦³¤T­Ó¦p¹Ï¤ù¤W³o¼Ëªº¤u§@ªí³æ¡A§Ú­Ì¦p¦ó­n¼gVBA¿z¿ï¥X¨Ó80%¥X²{ªº­^¤å¦r¥À?

±µµÛ¦A¨Ó¡A¨º¤T­Ó¤u§@ªí³æ³£¿z¿ï¥X¥X²{80%ªº¦r¥À«á¡A§â¤T­Óªí³æªº¿z¿ïµ²ªGµ²¦X¦b¤@°_«á¡A§Ú­Ì­n¦p¦ó­pºâ¥X¥L­Ì¦U¦Û¥X²{ªº¦Ê¤À¤ñ¨Ò¬O¦h¤Ö?

·Q°Ý±z³o¨Ç­n¦p¦ó¥ÎVBA¥h¼¶¼g??? ¥i¥HÀ°À°§Ú¶Ü??:'(

TOP

¦^´_ 4# Hsieh


    ¯uªº¤£¦n·N«ä~½Ð°ÝHsieh¥ý¥Í¡A§Ú¹ï©óVBA¯uªºÁÙ¤£¬O«Ü¼ô±x¡A©Ò¥H·Q½Ð°Ý±z¦³¿ìªkÀ°À°§Ú¬Q¤éªº¨º­Ó°ÝÃD¶Ü??
   ÁÙ¬O§ÚÀ³¸Ó¦A­«·sµo¶K°Ý©O?

TOP

¦^´_ 7# Duck

°ÝÃD¬O¨Ã¤£²M·¡§Aªº»Ý¨D
¬O­n¨C­Ó¤u§@ªí¦U§O¿z¿ïÁÙ¬O3­Ó¤u§@ªí¦X­p«á¿z¿ï¡H
¦û80%¬O¥H¤WÁÙ¬O­è¦n¡H
°µ­Ó²³æ½d¨ÒÀÉÀ£ÁY¤W¶Ç»¡©úÀ³¸Ó¤ñ¸û®e©ö¤F¸Ñ§Aªº»Ý¨D
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 8# Hsieh
¬¡­¶Ã¯1.rar (9.25 KB)

¤£¦n·N«ä¡A±z¦n~«e¤T­Ó¤u§@ªí¬O­n"¦U¦Û"¿z¿ï¥X²{80%¥H¤Wªº¦r¥À¥X¨Ó¡A¦A¨Ó¡A¤u§@ªí4¬O°²³]«e¤T­Ó¤u§@ªí¿z¿ï¥X¨Ó«áµ²ªGªº¾ã¦X°_¨Óªº¸ê®Æ(ªþ¥ó¤W¤u§@ªí4ªºµ²ªG¤£¬O¥¿½Tµ²ªG)¡A±µµÛ§Ú­Ì¦p¦óÅã¥Ü¥X¤u§@ªí4¸Ì­±BÄæ¦ì¤W¨C­Ó­^¤å¦r¥À¦b¤u§@ªí4¤W¥X²{ªº¤ñ²v¬°¦h¤Ö?¨Ò¦p:¦r¥ÀA¦b¤u§@ªí4¤W¥X²{ªº¦Ê¤À¤ñ¬°1/14(¬ù¬°7%)

½Ð°Ý³o¨Ç¸Ó¦p¦ó¥ÎVBA¼¶¼g?

TOP

¦^´_ 8# Hsieh


    ·Q½Ð°Ý¤@¤U¡A¤£ª¾±z¬O§_¤F¸Ñ§Úªº°ÝÃD¤F¶Ü?  ³o¦³¿ìªk¥Îvba°õ¦æ¶Ü?

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡¦pÆp¥Û¡j®É¶¡¹ï¤@­Ó¦³´¼¼zªº¤H¦Ó¨¥¡A´N¦pÆp¥Û¯ë¬Ã¶Q¡F¦ý¹ï·M¤H¨Ó»¡¡A«o¹³¬O¤@§âªd¤g¡A¤@ÂI»ù­È¤]¨S¦³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD