使用数组

定义与重定义:

'定义空的数组,第一次赋值时确定大小
Dim Mystr()

'定义确实大小的数组
Dim Mystr(100,100)

'保留数据扩充大小,速度慢不推荐
ReDim Preserve MyStr(n)

'擦除数组,释放内存
Erase arr

数组取值:

'一维数组取列
arr = Application.Transpose(.range())

'一维数组取行
arr = Application.Transpose(Application.Transpose(.range()))

'二维数组取区域
arr = .range()

'二维数组切片
crr = Application.Index(brr, 4, 0) '取arr 第4行
crr = Application.Transpose(application.index(brr, 0, 2))'取brr 第2列

数组的遍历:

'对于一维数组
For i = 1 To UBound(arr)
    '代码块

Next

'对于二维数组
row = UBound(arr, 1)
col = UBound(arr, 2) 
For i = 1 to row
    For j = 1 to col
        '代码块
    Next
Next

将值写入表格

'一维数组写入列
Range("A1:A10") = application.transcope(arr)

'一维数组写入行。 一维数组要理解为一行数。而不是一列数。
Range("A1:J1") = arr

'二维数组写入区域
Range("A1:B10") = arr 

 

  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值