ªð¦^¦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

google"EXCEL°g"  blog  ©Îgoogleºô§}:https://hcm19522.blogspot.com/

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