Hsieh

¦^´_ 11# p6703

1. Sub ex()
   
2. Dim A As Range, Ar()
   
3. For Each A In Range("A1").CurrentRegion.Columns(1).Cells
   
4.   If A.EntireRow.Hidden = False Then '§ä¥X«DÁôÂæC
   
5.     ReDim Preserve Ar(s)
   
6.     Ar(s) = A.Resize(, 6).Value
   
7.     s = s + 1
   
8.   End If
   
9. Next
   
10. Sheet1.ShowAllData 'Åã¥Ü¥þ³¡¸ê®Æ
    
11. Range("A1").CurrentRegion.ClearContents '²M°£­ì¸ê®Æ
    
12. [A1].Resize(s, 6) = Application.Transpose(Application.Transpose(Ar)) '¼g¤J¸ê®Æ
    
13. For Each A In Range([F2], Cells(Rows.Count, 6).End(xlUp))
    
14. k = Len(A) - Len(Replace(A, Chr(10), "")) + 1 '­pºâ¦³´X¦C¤å¦r
    
15. A.RowHeight = 15 * k '³]©w¦C°ª
    
16. Next
    
17. End Sub

½Æ»s¥N½X