ªí³æ¨Ì«ü©wÄæ¦ì­«±Æ¥¨¶°°ÝÃD

lionliu

½Ð±Ð¦U¦ì¤j¤j
  §Ú²{¦³¤@­Óªí³æ¨Ì«ü©wÄæ¦ì­«±Æ¥¨¶°°ÝÃD
·Q¥Î´M§ä¨ì¯S©w¼ÐÃD«á   ¦V¤U¨ì¸ê®Æ³Ì«á¤@®æ¿ï¨ú·h²¾
¦ý¬O¦b¸ê®Æ¦³ªÅ®æ®É·|¦³°ÝÃD­n¦p¦ó³B¸Ì¡C data.rar (15.13 KB)

data
¤U¸ü¦¸¼Æ: 6

2012-5-7 17:40

register313

¦^´_ 1# lionliu

1. Sub xx()
   
2. Dim Ar(), Br()
   
3. Ar = Array("item", "name", "color", "po no", "qty")
   
4. R = [A65536].End(xlUp).Row
   
5. For i = 0 To UBound(Ar)
   
6.   x = Application.Match(Ar(i), [A1:E1], 0)
   
7.   ReDim Preserve Br(i)
   
8.   Br(i) = Application.Transpose(Range(Cells(1, x), Cells(R, x)))
   
9. Next i
   
10. [A1].Resize(R, 5) = Application.Transpose(Br)
    
11. End Sub

½Æ»s¥N½X

lionliu

¦^´_ 2# register313


    ÁÂÁÂreg¤j¤jªº¦^ÂСA²{»°§Ö´ú¸Õ¤@¤U
¦ý¬O¦³¤@°ÝÃD·Q½Ð±Ð¡A²Ä4¦C   R = [A65536].End(xlUp).Row
¬Oª½¥ÑaÄæ³Ì«á¦V¤W¨ú­È¡A¦ý¦³¥i¯à°µ¨ì¥u§ì¦³¸ê®Æ³Ì«áªºÄæ¦ì¶Ü
¦]¬°¤£¬O«ÜÀ´­Y¦³°Ýªº¤£¹ïªº¦a©ñ½Ð¦b«ü¥¿¤@¤U¡C

register313

¦^´_ 3# lionliu

R = [A65536].End(xlUp).Row
¨ú±oAÄæ³Ì«á¤@­ÓÀx¦s®æ¤§¦C¸¹

RANGE("A" & [A65536].End(xlUp).Row)
¨ú±oAÄæ³Ì«á¤@­ÓÀx¦s®æ¤§­È

lionliu

¦^´_ 4# register313


    ÁÂÁÂreg¤j¤j³á:D