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

±Ð§Ú«ç¼Ë¥Î°}¦C¼gµ{¦¡½X~~~

±Ð§Ú«ç¼Ë¥Î°}¦C¼gµ{¦¡½X~~~

¥»©«³Ì«á¥Ñ oak0723-1 ©ó 2010-9-5 20:57 ½s¿è

¤p§Ì¹ï³o­Óµ{¦¡½X¦³ºÃ°Ý
Dim a, r%, i%, arr()
    a = Sheets("1").[c10].CurrentRegion
    r = 1
    For i = 1 To UBound(a)
        ReDim Preserve arr(1 To 3, 1 To r)
        arr(1, r) = a(i, 1): arr(2, r) = a(i, 2): arr(3, r) = a(i, 3)
        r = r + 6
    Next
    Sheets("2").[c4].Resize(r - 6, 2) = Application.Transpose(arr)
    Sheets("2").[k4].Resize(r - 6, 1) = Application.Transpose(Application.Index(arr, 3))
°ÝÃD1>arr(1, r) = a(i, 1): arr(2, r) = a(i, 2): arr(3, r) = a(i, 3)
¬°¦ó¤£¯à¼g¦¨arr(1, r) = a(1, i): arr(2, r) = a(2, i): arr(3, r) = a(3, i)
°ÝÃD2>¬°¦ó­nTransposeÂà¸m??¤£Âà¸m¤£¦æ¶Ü?
¥H¤WÁöµM¤p§Ì¦³µ¹¥L§ï¼g¨Ã¸ÕÅç(¦pªþ¥ó±±¨î¶s"test3"."test4")
°õ¦æ«á½T¹ê¬O¤£¦æ
§ÚÀ³¸Ó¬O¬Ý¤£À´³o­Óµ{¦¡½X°}¦C·N«ä
¥i§_À°À°¤p§Ì¦£¸ÑÄÀ¤@¤U
Åý¤p§Ì¾Ç²ß

990905-1.rar (19.02 KB)

§Ú­Ì¤@¶}©lµLªkª¾¹D³o­Ó°}¦C¦³¦h¤j¡A©Ò¥H¥Î°ÊºA°}¦C¡A¦Ó°ÊºA°}¦C¦³­Ó³W«h¡A´N¬O¥u¯à§ïÅܲĤGºûªº¤j¤p¡A©Ò¥Hµ{¦¡¤¤ arr(1, r) = a(i, 1): arr(2, r) = a(i, 2): arr(3, r) = a(i, 3)¬O§â­ì¨Óaª½¦Vªº±Æ¦CÅܦ¨¾î¦Vªº±Æ¦C¸ü¤Jarr
¤¤¡A¥H¾AÀ³§ïÅܤj¤pªº³W«h¡A³Ì«á¦AÂà¸m¼g¤J¤u§@ªí¤W¡C

TOP

        ÀR«ä¦Û¦b : ¤£©È¨Æ¦h¡A¥u©È¦h¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD