register313

¦^´_ 1# a703130

1. Sub AA()
   
2. Sheets("Sheet(1)").[A1].CurrentRegion.Copy Sheets("Sheet(2)").[A1]
   
3. End Sub

½Æ»s¥N½X

register313

¦^´_ 3# a703130

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

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

¤U¸ü (62.75 KB)

2012-3-8 10:22

register313

¦^´_ 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