首頁 辦公利器Excel文書處理Excel VBA 【Excel VBA】 陣列貼上Excel的方法

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

by PartyLin
已發布 最後更新日期 0 評論
'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

發表留言

本網站放置cookies,務求為您提供最佳的網上瀏覽體驗。 同意 閱讀更多