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

[µo°Ý] ¦Û°Ê²£¥Í¶µ¦¸´M°Ý

[µo°Ý] ¦Û°Ê²£¥Í¶µ¦¸´M°Ý

DEAR  ALL ¤j¤j
1.¦p¹Ï¤@ ¤º®e¤§¦C¼Æ¤£¤@©w.°²³]¦p¹Ï¤@ ¥Ø«e¦³ AA  BB «h»Ý¨D¦p¹Ï¤G ¦Û°Ê²£¥Í¶µ¦¸1 2
   1.1 ­Y¦³ AA  BB  CC   ¦Û°Ê²£¥Í¶µ¦¸1 2 3  ...... ½Ð°ÝVBA¦p¦ó®Ñ¼g
2.·Ð¤£§[½ç±Ð  THANKS*10000  

¹Ï¤@
¶µ¦¸   ¤º®e
       AA
          BB
¹Ï¤G
¶µ¦¸   ¤º®e
1     AA
2        BB
ù

¦^´_ 1# rouber590324
  1. Sub ex()
  2. Set d = CreateObject("Scripting.Dictionary")
  3. For Each a In Range([B2], [B65536].End(xlUp))
  4.    If d.exists(a.Value) = False Then d(a.Value) = d.Count + 1
  5.    a.Offset(, -1) = d(a.Value)
  6. Next
  7. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

DEAR Hsieh ¤j¤j
1.100%²Å¦X»Ý¨D.THANKS*10000
ù

TOP

        ÀR«ä¦Û¦b : §Ú­Ì³Ì¤jªº¼Ä¤H¤£¬O§O¤H¡D¥i¯à¬O¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD