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

[¨D§U]¦p¦ó¿z¿ï¸û¨Î

¥»©«³Ì«á¥Ñ Hsieh ©ó 2012-2-11 21:36 ½s¿è

¦^´_ 1# baa168
  1. Sub nn()
  2. Set d = CreateObject("Scripting.Dictionary")
  3. d("¤é´Á") = Array("¤é´Á", "¤º®e")
  4. For Each a In Range("A4", [A65536].End(xlUp))
  5. mystr = Format(a, "yyyymm")
  6.   d(mystr) = Array(a.Value, a.Offset(, 1).Value)
  7. Next
  8. [G:H] = ""
  9. [G3].Resize(d.Count, 2) = Application.Transpose(Application.Transpose(d.items))
  10. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¦Y­W¤F­W¡B­WºÉ¤Ü¨Ó¡A¨ÉºÖ¤FºÖ¡BºÖºÉ´d¨Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD