P185,P186 範例中有二個方法,結果都是一樣的 用Resize的方法,更簡單快速 Resize的表示方式為,.cells(x1,y1),為開始的儲存格,加大成為 .range(.cells(x1,y1),.cells(x2,y2)) x1=6 y1=1 x2=1 y2=5 範列1 ShtTmp.cells(x1,y1).resize(x2,y2)=arr_Data 範列2 y2=ubound(arr_Data,1) with ShtTmp .range(.cells(x1,y1),.cells(x2,y1+y2))=arr_Data end with 整列範例 ShtTmp.Columns("H:H").Resize(1, 10).ColumnWidth = 2.33