GBKEE

¦^´_ 1# stillfish00
Q 1ªºµª®×¦bQ2:  Arr= Application.Transpose(Application.Transpose(Range("$A$1:$E$1")))
Q2:»Ý¤£»Ý­nÄÀ©ñ°O¾ÐÅé©O?      ¦Û¦æ¨M©w
      «ç»òÁ٭쥦µ¹­È«eªºª¬ºA?    Erase ³¯­z¦¡ ­«·sªì©l¤Æ©T©w¤j¤p°}¦Cªº¤¸¯À¡A¨ÃÄÀ©ñ°ÊºA°}¦CªºÀx¦sªÅ¶¡

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Arr As Variant
   
4.     Arr = Application.Transpose(Application.Transpose(Range("$A$1:$E$1")))
   
5.     Erase Arr
   
6. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 3# stillfish00

1. Option Explicit
   
2. Sub Ex() '¦³«ü©w°}¦Cªº¤¸¯À¼Æ¶·¤@¤@ªºµ¹­È
   
3.     Dim Arr(1 To 5) As Variant, i As Integer
   
4.     For i = 1 To 5
   
5.         Arr(i) = Application.Transpose(Application.Transpose(Range("$A$1:$E$1").Columns(i)))        
   
6.     Next
   
7.     Erase Arr
   
8. End Sub
   
9. Sub Ex1() '°ÊºA°}¦C ¥i¥H ¤@¦¸µ¹©Ò¦³ªº­È
   
10.     Dim Arr() As Variant  '<-> Dim Arr As Variant
    
11.     Arr = Application.Transpose(Application.Transpose(Range("$A$1:$E$1")))
    
12.     Erase Arr
    
13. End Sub

½Æ»s¥N½X