c_c_lai

¦^´_ 1# p80252588
³o¬O¤£¬O§k¦X§Aªº´£°Ý¡H

¤U¸ü (15.95 KB)

2013-12-17 10:11

c_c_lai

¦^´_ 1# p80252588
µ{¦¡½X¦p¤U¡G

1. Sub Test()
   
2.     Dim myArray As Variant
   
3.      
   
4.     With ¤u§@ªí1
   
5.         '   ¤U¦C»yªk³B²z«á¤§µ²ªG¡G  .Range(.[A1], .[H5])
   
6.         myArray = .Range(.[A1], .Range(Chr(64 + .[A1].End(xlToRight).Column) & .[A1].End(xlDown)))
   
7.         '  ¤U¦C»yªk³B²z«á¤§µ²ªG¡G  .Range("J1:N8)
   
8.         .Range("J1:" & Chr(Asc("J") + .[A1].End(xlDown).Row - 1) & .[A1].End(xlToRight).Column).Value = Application.Transpose(myArray)
   
9.     End With
   
10. End Sub

½Æ»s¥N½X