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
      MsgBox arr(3, 1)
      End Sub
     
    '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