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

[µo°Ý] ±N¤u§@­¶ªº¸ê®Æ½Æ»s¨ì¥t¤@¤u§@­¶(§Q¥Îshift end)

[µo°Ý] ±N¤u§@­¶ªº¸ê®Æ½Æ»s¨ì¥t¤@¤u§@­¶(§Q¥Îshift end)

½Ð°Ý¦U¦ì«e½ú
§Ú·Q±N¬Y¤@sheet(1)ªº¸ê®Æ½Æ»s¨ì¥t¤@­Ósheet(2)¤W¡A³Ì«á²Î¤@¦b¦P¤@¦C¤W
¦ý¬O¨C¤@¦Cªº¸ê®Æ½d³ò³£·|¤£¦P¡A¦ý¬O°_ÂI³£¬O¤@¼Ëªº
©Ò¥H§Ú§Q¥Î¥H¤U¤è¦¡¡A¦ý¬O§Ú«o¤£ª¾¹D¦p¦ó±N©Ò§ì¨ìªº¸ê®Æ½Æ»s¨ìsheet(2)¤W

    sheet(1).select                                                                                          ' ¿ï¾Ü¸ê®Æ¨Ó·½¤u§@­¶
    iCount = Range("A3", Range("A3").End(xlToRight)).Count        '¥ý§ì¦@¦³¦h¤Ö¦Cªº¸ê®Æ
    Range("A3").Select                                                                                   '¥ýÂI¿ï¶}©l§ì¨úªº°_ÂI
    For x = 1 To iCount                                                                                 
        Range(Cells(3, x), Cells(3, x).End(xlDown)).Select                      '¿ï¾Ü²Ä¤@¦Cªº¸ê®Æ
        ±µ¤U¨ÓÀ³¸Ó¬O±N¤W­±§ì¨úªº¸ê®Æ½Æ»ssheet(2)
        ·í¤U¤@¦C¸ê®Æ§ì¨ì·|±µµÛ½Æ»s¤U¥h
    Next

§Ú·Qª¾¹Dªº¬O¦pªG¬O¥Î§Ú³o¤è¦¡¬O§_¥i¦æ¡A À³¸Ó«ç»ò
¥t¥~¤]·Qª¾¹D¬O§_¦³¨ä¥L§ó²LÅã©öÀ´ªº¤è¦¡

ÁÂÁÂ

¦^´_ 1# a703130
  1. Sub AA()
  2. Sheets("Sheet(1)").[A1].CurrentRegion.Copy Sheets("Sheet(2)").[A1]
  3. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# register313


³o¼Ë¤£¬O¥u¾A¥Î©ósheet(1) ªº¸ê®Æ³£¦b¦P¤@¦C®É¶Ü??

ÁÙ¬O»¡  CurrentRegion  ¥i¥H±Nsheet(1) ©Ò¦³¸ê®Æ  ¥]§t¤£¦P¦C  ¥þ³¡¿ï¨ú«á  copy ¨ì sheet(2)ªº¦P¤@¦C¤W¶Ü??

TOP

¥»©«³Ì«á¥Ñ register313 ©ó 2012-3-8 10:22 ½s¿è

¦^´_ 3# a703130

¦ó¤£°õ¦æ¬Ý¬Ý´Nª¾¹D

CurrentRegionÄÝ©Ê : ªð¦^¬¡°Ê³æ¤¸®æ©Ò¦bªº©P³ò¥ÑªÅ¦æ©MªÅ¦C²Õ¦¨ªº³æ¤¸®æ°Ï°ì(·í«e°Ï°ì)

TOP

¦^´_ 4# register313

©êºp¤j¤j¡A±z¥i¯à¨S·dÀ´§Úªº°ÝÃD

sheet(1) ªº¸ê®Æ
¥¼©R¦W.JPG
§Ú§Æ±æ½Æ»s¨ìsheet(2) ®É¡A¸ê®Æ¬O³o¼Ë
¦]¬°¨CÄæ¨C¦Cªº¸ê®Æ¼Æ¥Ø¤£¦P©Ò¥H§Ú¬O§Q¥Îcount¥ý­p¼Æ¨Ó­pºâ¼Æ¶q¤§«á¦A¶K¤Wsheet(2)
¦Ó§Ú¦A½Æ»s¨ìsheet(2) ªº¦a¤è¥d¦í


¦Ó±z¤W­±©Ò´£¨Ñªº¤è¦¡
sheet(2) ¤´·|¬O³o¼Ë
3.JPG
   
¬O§_¦³¨ä¥L¤è¦¡¥i¥H§¹¦¨§Ú¤W¹Ïªºµ²ªG??

TOP

¦^´_ 5# a703130
  1. Sub nn()
  2. With Sheet1
  3. Set ar = .[A3].CurrentRegion
  4. For i = 1 To ar.Columns.Count
  5.    Application.Index(ar, , i).Copy Sheet2.[A65536].End(xlUp).Offset(1)
  6. Next
  7. End With
  8. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 5# a703130
¥Î§A¤@¶}©lªº¤èªk¥h­×§ï
  1. Sub XX()
  2. Sheets("Sheet(2)").Cells = ""
  3. Sheets("Sheet(1)").Select
  4. With Sheets("Sheet(1)")
  5.   iCount = .Range("A3", Range("A3").End(xlToRight)).Count
  6.   For X = 1 To iCount
  7.     If X = 1 Then
  8.       .Range(Cells(3, X), Cells(3, X).End(xlDown)).Copy Sheets("Sheet(2)").[A4]
  9.     Else
  10.       .Range(Cells(3, X), Cells(3, X).End(xlDown)).Copy Sheets("Sheet(2)").[A65536].End(xlUp).Offset(1, 0)
  11.     End If
  12.   Next
  13. End With
  14. End Sub
½Æ»s¥N½X

TOP

¦^´_ 6# Hsieh

ÁÂÁ¦U¦ì«e½úÀ°¦£~§Ú¤]ÃB¥~¾Ç¨ì¨âºØ¤è¦¡
¤U­±¬O§Ú­è­è©Ò·Q¨ìªº~¤]¤@¨Ö¤À¨É
  1. Sub test()
  2.     Sheets("1").Select
  3.     Dim iCount, iColumn, x, y As Integer
  4.     iCount = Range("A3", Range("A3").End(xlToRight)).Count
  5.     Range("A3").Select
  6.     y = 0
  7.     For x = 1 To iCount
  8.         Range(Cells(3, x), Cells(3, x).End(xlDown)).Select
  9.         iColumn = Range(Cells(3, x), Cells(3, x).End(xlDown)).Count
  10.         Selection.Copy Sheets("2").Cells(4 + y, 1)
  11.         y = y + iColumn
  12.     Next
  13. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¤@¥y·Å·xªº¸Ü¡A´N¹³©¹§O¤H¨­¤WÅx­»¤ô¡A¦Û¤v·|ªg¨ì¨â¤Tºw¡C
ªð¦^¦Cªí ¤W¤@¥DÃD