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