Hsieh

¦^´_ 6# lpk187

1. Sub ex()
   
2. Dim Ar()
   
3. Dim A As Range
   
4. With ¤u§@ªí1
   
5. For Each A In .Range(.[B1], .[B1].End(xlToRight))
   
6.    c = Application.Lookup(9.9E+307, A.EntireColumn)
   
7.    d = Application.Lookup(9.9E+307, A.EntireColumn, .Columns("A"))
   
8.    ReDim Preserve Ar(s)
   
9.    Ar(s) = Array(A.Value, CDate(d), c)
   
10.    s = s + 1
    
11. Next
    
12. With ¤u§@ªí2
    
13.    .UsedRange.ClearContents
    
14.    .[A1].Resize(s, 3) = Application.Transpose(Application.Transpose(Ar))
    
15. End With
    
16. End With
    
17. End Sub

½Æ»s¥N½X