Hsieh

¦^´_ 1# y663258

1. Sub ex()
   
2. ay = Array(22, 12, 16, 12, 16, 7)
   
3. With Sheet2
   
4. mystr = Join(Application.Transpose(.Range(.[A1], .[A65536].End(xlUp)).Value), Chr(10))
   
5. ar = Split(mystr, Chr(10)): k = 0
   
6. With Sheet1.Range("A1")
   
7.    .Value = mystr
   
8.    Do Until i = Len(mystr) Or k > UBound(ar)
   
9.        i = i + 1
   
10.        Do Until Mid(mystr, i, 1) = Chr(10) Or i > Len(mystr)
    
11.           .Characters(i, 1).Font.Size = ay(k)
    
12.           i = i + 1
    
13.        Loop
    
14.        k = k + 1
    
15.    Loop
    
16. End With
    
17. End With
    
18. End Sub

½Æ»s¥N½X