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

Àx¦s®æ¤º¦³Â_¦æ¦p¦ó³v¦C§e²{

Àx¦s®æ¤º¦³Â_¦æ¦p¦ó³v¦C§e²{

½Ð°Ý¦p¦ó±Na,bÄæ¸ê®ÆÂà´«¦¨d,eÄæ¡A¥B¢íÄæ³]©w¦¨¤å¦r®æ¦¡

¬¡­¶Ã¯1.zip (6.62 KB)

joyce

  1. Sub zz()
  2. Dim a, b(), t, n&
  3. a = [a1].CurrentRegion
  4. ReDim b(1 To 1048576, 1 To 2)
  5. For i = 2 To UBound(a)
  6.     t = Split(a(i, 2), Chr(10))
  7.     For j = 0 To UBound(t)
  8.         n = n + 1
  9.         b(n, 1) = a(i, 1)
  10.         b(n, 2) = t(j)
  11.     Next
  12. Next
  13. [d1:e1] = a
  14. [d2].Resize(n, 2) = b
  15. End Sub
½Æ»s¥N½X

TOP

ÀH·NºÛ "EXCEL°g"  blog  ©Î http://blog.xuite.net/hcm19522/twblog[img][/img]
¤w¦¬¶°7000½g EXCEL¨ç¼Æ

TOP

        ÀR«ä¦Û¦b : ¡i¬O§_µo´§¤F¨}¯à¡H¡j¤H¶¡¹Ø©R¦]¬°µu¼È¡A¤~§óÅã±o¬Ã¶Q¡CÃø±o¨Ó¤@½ë¤H¶¡¡AÀ³°Ý¬O§_¬°¤H¶¡µo´§¤F¦Û¤vªº¨}¯à¡A¦Ó¤£­n¤@¨ý¨Dªø¹Ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD