Hsieh

¦^´_ 3# luke

1. Sub ex()
   
2. With sheet1
   
3.    With .Range("A1").CurrentRegion
   
4.    .Borders.LineStyle = xlNone
   
5.    .HorizontalAlignment = xlLeft
   
6.    .Font.Bold = False
   
7.    .Font.Name = "·s²Ó©úÅé"
   
8.    .Font.FontStyle = "¼Ð·Ç"
   
9.    .Font.Size = 12
   
10.    .Copy sheet2.[A1].End(xlDown).Offset(1)
    
11.    End With
    
12. End With
    
13. End Sub

½Æ»s¥N½X