GBKEE

¦^´_ 1# dechiuan999
§Aªºµ{¦¡¦] ReDim Preserve mArr(m) ³o¤@¦æ ¦Ó©µ¿ð¤F,§YµMª¾¹D½d³ò´Nª½±µµ¹°}¦Cªº¤j¤p

1. 
   
2. Sub Ex()
   
3.     Dim Rng As Range, AR()
   
4.     With Sheets("Test")
   
5.         Set Rng = .Range("a1:g10989")
   
6.         ReDim AR(2 To Rng.Rows.Count)
   
7.         For I = 2 To Rng.Rows.Count
   
8.             AR(I) = Trim(Join(Application.Transpose(Application.Transpose(Rng.Rows(I)))))
   
9.         Next
   
10.         .Range("h1") = "¦X¨Öñ¼f"
    
11.         .[H2].Resize(UBound(AR) - 1, 1) = Application.Transpose(AR)
    
12.     End With
    
13. End Sub

½Æ»s¥N½X