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

[µo°Ý] °õ¦æ¶¥¬q¿ù»~13

¦^´_ 3# jesscc

2010ª©ªºExcel Application.Transpose ¦³¨â­Ó¸nªù
1.¸m´«ªº¤¸¯À¤¤­Y¦³¶W¥X256¦r¤¸·|²£¥Í¿ù»~¡C
2.¸m´«ªº¦C¼Æ­Y¶W¥X65536¦C·|²£¥Í¿ù»~¡C

°õ¦æ§Aªºµ{¦¡½X«á©Ò±o¦r¤¸¼Æ¸ê®Æ¦p¤U¡G
áMÀY¸¹34¡i¤¤¤å«~¶µ¦X¨Ö¡j¬°21
áMÀY¸¹34¡i­^¤å«~¶µ¦X¨Ö¡j¬°16

áMÀY¸¹35¡i¤¤¤å«~¶µ¦X¨Ö¡j¬°161
áMÀY¸¹35¡i­^¤å«~¶µ¦X¨Ö¡j¬°138

áMÀY¸¹36¡i¤¤¤å«~¶µ¦X¨Ö¡j¬°211
áMÀY¸¹36¡i­^¤å«~¶µ¦X¨Ö¡j¬°306

áMÀY¸¹37¡i¤¤¤å«~¶µ¦X¨Ö¡j¬°176
áMÀY¸¹37¡i­^¤å«~¶µ¦X¨Ö¡j¬°170

áMÀY¸¹38¡i¤¤¤å«~¶µ¦X¨Ö¡j¬°8
áMÀY¸¹38¡i­^¤å«~¶µ¦X¨Ö¡j¬°3

¸ê®Æ¿ù»~¥X²{¦báMÀY¸¹36¡i­^¤å«~¶µ¦X¨Ö¡j¬°306¡A¤w¶W¥X256ªº¤W­­¡A¦Ó©Ò¦³¤¤¤å«~¶µ§¡¦X¥G³W«h¡A¦]¦¹¤£·|¥X¿ù¡C

TOP

¦^´_ 6# jesscc

¥u°w¹ï test.rar ¤ºªº¤¤ªº Transpose ºÃ°Ý¦^µª¦p¤U¡G
­Y¤£¥Î Transpose ¨Ó¸Ñ¡A¥i¥Î¤U¦C°j°é¤è¦¡¨Ó¼g¤J¡A¤£¹L¸ê®Æ¶q¦hªº¸Ü·|ªá¸û¦h®É¶¡¡C

­ì¦¡¡G
[AG7].Resize(d1.Count, 1) = Application.Transpose(d1.items)

§ï¬°¦p¤U¡G
s = d1.Items
For i = 0 To d1.Count - 1
    Cells(i + 7, 33).Value = s(i)
Next i

TOP

        ÀR«ä¦Û¦b : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD