GBKEE

¦^´_ 1# hungrn

ªí1,ªí2 ¥Î¹q«×¼Æ(«×)  »Ý§ï¦¨  ¥Î¹q«×¼Æ
ÁÙ¦³¨ä¥L¼gªk,¤]½Ð¤j®aµoªí

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim i As Variant
   
4.     For Each i In Names
   
5.         i.Delete
   
6.     Next
   
7.     Worksheets("¤u§@1").UsedRange.CreateNames True, False
   
8.     'Range.CreateNames ¤èªk¦b«ü©w½d³ò¤¤¨Ì¾Ú¤u§@ªí¤¤ªº¤å¦r¼ÐÅҫإߦWºÙ
   
9.     With Worksheets("¤u§@2").UsedRange
   
10.         For i = 1 To .Columns.Count
    
11.             If .Cells(1, i) <> "" Then
    
12.                 With Range(.Cells(1, i).Value)   '¤u§@ªí¤¤ªº¤å¦r¼ÐÅҫإߦWºÙ
    
13.                     Cells(2, i).Resize(.Rows.Count) = .Value
    
14.                 End With
    
15.             End If
    
16.         Next
    
17.     End With
    
18. End Sub

½Æ»s¥N½X