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

¥i§_±Nª½¦C¼Æ­È¨Ì·Ó©T©w¦¸¼Æ´`Àô

¥i§_±Nª½¦C¼Æ­È¨Ì·Ó©T©w¦¸¼Æ´`Àô

¥i§_±Nª½¦C¼Æ­È¨Ì·Ó©T©w¦¸¼Æ´`Àô¦Ü65536
±N¼Æ­ÈÂন¾î¦V¤è¦V

Book1.rar (4.43 KB)

¦^´_ 1# yueh0720
  1. Sub nn()
  2. Dim d As Object, r&, Ar()
  3. Set d = CreateObject("Scripting.Dictionary")
  4. r = 2
  5. Do Until Cells(r, 3) = ""
  6. Ar = Application.Transpose(Cells(r, 3).Resize(3, 1).Value)
  7. d(Cells(r, 2).Value) = Ar
  8. r = r + 3
  9. Loop
  10. [E2].Resize(d.Count, 1) = Application.Transpose(d.keys)
  11. [F2].Resize(d.Count, 3) = Application.Transpose(Application.Transpose(d.items))
  12. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

hsieh ª©¥D
Transpose Âà¸m«ü¥O¬O§_¥i¥H»¡©ú¨Ï¥Î¤è¦¡
¦]Excel F1¤¤¨ÃµL»¡©ú
­Y§Ú­n±N¾î¦V¸ê®ÆÂনª½¦V¬O§_¤]¥i¥Î¦¹«ü¥O?

TOP

¦^´_ 3# yueh0720
³o¬O¤Þ¥Î¤u§@ªí¨ç¼ÆTransposeªº¥Îªk
¥i°Ñ¦Ò¤u§@ªí¨ç¼ÆTransposeªº»¡©ú
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : §g¤l¦p¤ô¡AÀH¤è´N¶ê¡AµL³B¤£¦Û¦b¡C
ªð¦^¦Cªí ¤W¤@¥DÃD