vba给数组赋值

'向VBA数组中写入数据
  
   '1、按编号(标)写入和读取
  
    Sub t1() '写入一维数组
    Dim x As Integer
    Dim arr(1 To 10)
   arr(2) = 190
   arr(10) = 5
    End Sub
 
    Sub t2()'向二维数组写入数据和读取
    Dim x As Integer, y As Integer
    Dim arr(1 To 5, 1 To 4)
    For x = 1 To 5
      For y = 1 To 4
        arr(x, y) = Cells(x, y)
      Next y
    Next x
    MsgBoxarr(3, 1)
    EndSub
   
   '2、动态数组
      Sub t3()
       Dim arr()
       Dim row
       row = Sheets("sheet2").Range("a65536").End(xlUp).row - 1
       ReDim arr(1 To row)
       For x = 1 To row
          arr(x) = Cells(x, 1)
       Next x
       Stop
      End Sub
      
   '3、批量写入
   
     Sub t4() '由常量数组导入
     Dim arr
     arr = Array(1, 2, 3, "a")
     Stop
     End Sub
   
    Sub t5() '由单元格区域导入
      Dim arr
      arr = Range("a1:d5")
      Stop
    End Sub