VBA中数组与Range()区域的数据互传

一、数组的维数确定

1. 一维数组维数的确定

        dim myArr (5)

  数组维数的下限用lbound()函数确定，如：lbound(myarr)

数组维数的上限用ubound()函数确定，如：ubound(myarr)

2. 二维数组两个维度的的维数确定

        dim myarr(4,3)

  第一维的下限用，如：lbound(myarr,1)

  第一维的上限用，如：ubound(myarr,1)

  第二维的下限用，如：lbound(myarr,2)

  第二维的上限用，如：ubound(myarr,2)

二、Range()的数据转成数组

        Dim myArr As Variant
        Dim objrge As Range
        Dim i%, j%
       'Range赋值给数组
       myArr = Sheet11.Range("a1:b4")

        for i = lbound(myarr,1) to ubound(myarr,1)

                for j= lbound(myarr,2) to ubound(myarr,2)

                        msgbox myarr(i,j)  '打印数据

                next j

        next i

三、数组的数据传给Range()

     

        Dim myArr As Variant
        Dim objrge As Range
        Dim i%, j%
       '数组赋值给Range（）

        Set objrge = Sheet11.Range("D1:e4")    '先把Sheet11.Range("D1:e4") 变量赋给变量objrge，此句很重要
         objrge.Value = myArr  '再把数组对象赋给objrge对象，此时，由上行的变量变成了对象了，所以可以用set 进行赋值了，Range("d1:e4")区域的值就和range("a1:b4")一样了