[VBA ] 陣列貼上excel儲存格cell的方式(回樓上)

看板Visual_Basic作者waiter337 (給開司一罐蘇格登)時間7年前 (2017/01/27 11:35)推噓2(2推 0噓 0→)

留言2則, 2人參與討論串1/1

這套方式也算拼拼湊湊出來可能會有些微不正確但如對於新手或許是個比較快速的一個範例因為寫陣列不難，但要把陣列貼上cell 實在很難>.< 以下為陣列貼上cell之辦法 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開始算,請注意這四條方法我找到外國網站才補齊= = 為了這四行,我花了快20小時 XD 還有靠office板的s大大才得以學會也歡迎大大一起揪錯感恩 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.35.158.244 ※ 文章網址: https://www.ptt.cc/bbs/Visual_Basic/M.1485488105.A.DB6.html ※ 編輯: waiter337 (114.35.158.244), 01/27/2017 11:40:12 ※ 編輯: waiter337 (114.35.158.244), 01/27/2017 11:40:34 ※ 編輯: waiter337 (114.35.158.244), 01/27/2017 11:42:54