GBKEE

¦^´_ 3# opman

1. Option Explicit
   
2. Sub ¾ã²z()
   
3.     Dim iCols%, i%, iRows&
   
4.     Dim Rng As Range
   
5.     Sheets("Á`ªí").UsedRange.Clear
   
6.     iRows = Sheets("¾Ç¥Í¦W³æ").UsedRange.Rows.Count '¼ÐÀY + ¾Ç¥Í¤H¼Æ
   
7.     iCols = Sheets("¦¨ÁZ").UsedRange.Columns.Count  'ªÀ¹Î¼Æ
   
8.     For i = 2 To iCols
   
9.         Set Rng = Sheets("Á`ªí").Cells(Sheets("Á`ªí").Rows.Count, "a").End(xlUp)
   
10.         '©¹¤U¶Kªº¦ì¸m
    
11.         With Rng.Offset(IIf(Rng.Row = 1, 0, 1)).Resize(iRows)
    
12.             .Cells = Sheets("¾Ç¥Í¦W³æ").Columns(1).Value       '²Ä¤@Äæ:¾Ç¥Í¦W³æ
    
13.             .Offset(, 1) = Sheets("¾Ç¥Í¦W³æ").Columns(i).Value '²Ä¤GÄæ:¾Ç¥Í¦WºÙ
    
14.             .Offset(, 2) = Sheets("¦¨ÁZ").Columns(i).Value     '²Ä¤TÄæ:¾Ç¥Í¦¨ÁZ
    
15.         End With
    
16.     Next
    
17. End Sub

½Æ»s¥N½X