1. 程式人生 > >VBA_把Excel某一區域的內容讀入到陣列中/把陣列的內容寫入到Excel中

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

1 把Excel某一區域的內容讀入到陣列中:

Dim strArray() As Variant

Dim wk_data As Variant

Set wk_data = Sheets("Sheet1")

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

2 把陣列的內容寫入到Excel中

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