GBKEE

回復 1# dechiuan999
你的程式因 ReDim Preserve mArr(m) 這一行 而延遲了,即然知道範圍就直接給陣列的大小

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") = "合併簽審"
    
11.         .[H2].Resize(UBound(AR) - 1, 1) = Application.Transpose(AR)
    
12.     End With
    
13. End Sub

複製代碼