VBA_把Excel某一区域的内容读入到数组中/把数组的内容写入到Excel中

来源:互联网 发布:股票历史分时数据获取 编辑:程序博客网 时间:2024/05/21 05:37

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

1 0
原创粉丝点击