VBA数组赋值（12）--一维数组
VBA数组赋值（12）--⼀维数组
以前的博客⽂章中讲过⼀些数组的使⽤技巧，经常会被⽹友问道如何给数组赋值，本⽂讲解如何为⼀维数组赋值（或者说如何创建⼀维数组）。
Option Base1
Sub demo1()
Dim myArray
myArray =Array(1,2,3)
End Sub
深圳疫情风险等级
⽣成的数组如下图所⽰，值得注意的地⽅是，如果没有第1⾏代码，那么数组下标下界将从0开始。
既然是Excel VBA，⼤家⾃然会想到借助⼯作表中的⾏和列来实现给数组赋值，⼯作表中内容如下。
⽰例代码如下。什么叫出柜
Sub demo2()欢天喜地七公主
Dim arrRow, arrCol
武汉热干面arrCol = Range("A1:A3")
arrRow = Range("A1:C1")
Stop
End Sub
执⾏结果如下图所⽰，和⼤家相信的可能并不相同，arrRow是1x3的⼆维数组，arrCol是3x1的⼆维数组，⽆论⾏数据还是列数据都不能直接产⽣⼀维数组。
这次我们拿出Excel中著名的神器“乾坤⼤挪移” – Transpose，⽰例代码如下。
Sub demo3()
Dim arrRow, arrCol
arrCol = Application.Transpose(Range("A1:A3"))经典美剧排行榜
arrRow = Application.Transpose(Range("A1:C1"))
Stop
End Sub
执⾏结果如下图所⽰，arrCol成功转换为有3个元素的⼀维数组，但是arr 则由1x3的⼆维数组，转换为3x1的⼆维数组。
结论：列数据经过Transpose可以转换为⼀维数组。
>与天气有关的谚语

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。