我是靠谱客的博主 无语小松鼠,最近开发中收集的这篇文章主要介绍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

最后

以上就是无语小松鼠为你收集整理的vba给数组赋值的全部内容,希望文章能够帮你解决vba给数组赋值所遇到的程序开发问题。

如果觉得靠谱客网站的内容还不错,欢迎将靠谱客网站推荐给程序员好友。

本图文内容来源于网友提供,作为学习参考使用,或来自网络收集整理,版权属于原作者所有。
点赞(43)

评论列表共有 0 条评论

立即
投稿
返回
顶部