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

[µo°Ý] ¨D§U¥Îµ{¦¡À°¦£¦X¨Ö¸ê®Æ¼Æ¾Ú

[µo°Ý] ¨D§U¥Îµ{¦¡À°¦£¦X¨Ö¸ê®Æ¼Æ¾Ú

·PÁ¤j¤j´£¨Ñ¤èªk (¦pªþÀÉ )

¤£µM¨C¤Ñ­nªá¤@°ï®É¶¡¦X¨Ö¨Ãºâ¥X¼Æ¾Ú  ·|µoºÆ   ·PÁÂ¥ý

¦^´_ 1# glriffy_su


    ¥i¥H¥ÎMAIL±Hµ¹§Ú¶Ü  ¶W¯Å·PÁ  : [email protected]

TOP

¦^´_ 1# glriffy_su
½Ð¤W¶Ç°Ñ¦ÒÀɮס]¤£¬O¶K¹Ï®@¡I¡^¡A¥H§Q¸ÑÃD¡AÁÂÁ¡I

TOP

¦^´_ 1# glriffy_su
¸Õ¸Õ¬Ý
  1. Sub ex()
  2. Set d = CreateObject("Scripting.Dictionary")
  3. Set d1 = CreateObject("Scripting.Dictionary")
  4. Set d2 = CreateObject("Scripting.Dictionary")
  5. With ¤u§@ªí1 '¨Ó·½¤u§@ªí
  6.   r = 3
  7.   Do Until .Cells(r, 2) = ""
  8.      mystr = .Cells(r, 1).Text & "," & Split(.Cells(r, 2), ".")(0)
  9.      d1(mystr) = d1(mystr) + .Cells(r, 3)
  10.      d2(mystr) = d2(mystr) + .Cells(r, 3)
  11.      For Each a In .Range(.[E2], .[E2].End(xlToRight))
  12.        d(mystr & "," & a) = d(mystr & "," & a) + Cells(r, a.Column)
  13.      Next
  14.      r = r + 1
  15.   Loop
  16. End With
  17. With ¤u§@ªí2 '¥Ø¼Ð¤u§@ªí
  18. r = 3
  19.   For Each ky In d1.keys
  20.     .Cells(r, 1).Resize(, 2) = Split(ky, ",")
  21.     .Cells(r, 3) = d1(ky)
  22.     .Cells(r, 4) = d2(ky)
  23.     For Each a In .Range(.[E2], .[E2].End(xlToRight))
  24.        .Cells(r, a.Column) = d(ky & "," & a)
  25.     Next
  26.     r = r + 1
  27.   Next
  28. End With
  29. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# Hsieh


    ¤j¤j  ¤Ó·PÁ±z¤F  ³Ñ¤Uªº§Ú¦Û¤v­×§ï¤@¤U  ¦A¦¸·PÁÂ

TOP

        ÀR«ä¦Û¦b : Ãø¦æ¯à¦æ¡AÃø±Ë¯à±Ë¡AÃø¬°¯à¬°¡A¤~¯àª@µØ¦Û§Úªº¤H®æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD