VBA_把Excel某一區域的內容讀入到數組中/把數組的內容寫入到Excel中

時間 2020-02-09 標籤 vba excel 某一區域內容讀入數組中數組內容寫入 excel 中

1 把Excel某一區域的內容讀入到數組中:數組

Dim strArray() As Variantim

Dim wk_data As Variantant

Set wk_data = Sheets("Sheet1")data

strArray = wk_data.Range("A1:CV100").Value

2 把數組的內容寫入到Excel中

wk_data.Range("A1").Resize(UBound(strArray, 1), UBound(strArray, 2)).Value = strArray