【Excel VBA】 陣列貼上Excel的方法

'1-(1維陣列,所有列貼上某起始格,自動調整大小,cell為向下匯入) 
Sheets("sheet1").[A1].Resize(UBound(陣列名)) =Application.Transpose(陣列名) 
'一維陣列可以搭配transpose,橫向貼上還需要資料 '' 

'2-(2維陣列,所有列貼上某起始格,自動調整大小,cell為向右匯入) 
Sheets("工作表1").[A1].Resize(1,UBound(陣列名,2) +1) = 陣列名
 '[上述橫向匯入尚未測試完整,請高手補充] 

'3-(2維陣列,欄為不固定) #陣列設為0~最後一欄,將相同範圍貼至儲存格 
Sheets("sh1").Cells(1, 1).Resize(UBound(陣列名,1) +1,UBound(陣列名,2) +1) = 陣列名 

'4-)2維陣列,欄為固定) #陣列設為0~18欄,貼至儲存格1~19欄 Sheets("sheet1").range("a1").Resize(UBound(陣列名), 19) = 陣列名 
' [請注意以上陣列 UBound(陣列名)是否需要+1 ] 尤其resiz後面用的數字,"並不是"陣列的欄列,而是儲存格的欄列, '因為陣列是從0開始算 儲存格都用1開始算,請注意

引用至 MOPPT鄉公所https://moptt.tw/p/Visual_Basic.M.1485488105.A.DB6

發表評論

發佈留言必須填寫的電子郵件地址不會公開。 必填欄位標示為 *

十九 − 八 =

購物車