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